AAAAAAAAA 

AARAAAARK 

AAAAAAABRA 
AA BAL 
ABL ABA 
ARR AAA 
AAA Aaa 
AAA ARA 
AAA AAA 
AAA ALA 
AAA AAA 
KAR ADA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
ALA AAA 
AAR AAA 
AAR Aaa 
AAA AAA 
Aha AAA 


POOOOOOIOOOOOIAIAS 
AOOOAOOOIAIOAOIOOIAOIS 
OOM OAOAIOAAIAAIAIAOOA 


KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKKKKKKKK 
KKKKKKKKK 
KKKKKKKKK 

KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 
KKK KKK 


UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UUU UUU 
UYUUUUUUUUUUUUUU 
YUUUUUUUUUUUUUU 
UUUUUUUUUUUUUU 


PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPP PPP 


PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


| #*F TLE®®1D®® COMMAND 

CCCCCCCC §=©— 000000 Ss wm mM MM MM = AAAAAA NN NN DDDDDDDD 
CCCCCCCE §~— 000000 —swM mM MM MM = AAAAAA NN NN DDDDDDDD 

cc 00 00 MMMM MMMM MMMM MMMM AA AA NN NN DD DD 

c¢ 00 00 MMMM MMMM MMMM MMMM AA AA NN NN DD 

CC 00 00 MM mM MM MM MM AA AA NNNN DD DD 

cc 00 00 MM MM MM MM MM MM AA AA NNNN NN DD 

¢¢ 00 00 MM MM MM MM AA AA NN NN NN DD 

cc 00 00 MM MM MM MM AA AA WN NN DD DD 

cC 00 00 MM mM MM MM AAAAAAAAAA NN NNNN DD DD 

cc 00 00 MM MM 6OMM MM AAAAAAAAAA NN NNNN DD DD 

CC 00 00 MM mM MM MM AA AA NN NN DD DD ee 

cc 00 00 MM MM MM MM AA AA WN NN DD DD cece 
ccCCCCCC §=— 000000 MM MMMM MM AA AA NN NN DDDDDDDD +h 
CCCCCCCC }=— 000000 SM MM MM MM AA AA NN NN DDDDDDDD rik 

LL W111] SSSSSSSS 

LL HII SSSSSSSS 

LL 1] SS 

LL 1] $§ 

LL 1] SS 

tL I] $§ 

LL 1] SSSSSS 

tL 1] SSSSSS 

LL I] SS 

LL 1] SS 

tL 1] SS 

LL I] $$ 

LLLLLLLLLL «=o «= SSSSSSSS 

LLLLLLEELE SO sTNATI = SSSSSSSS 
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AX=11 Bliss-32 V4.0-74 : 
14-Sep-1984 11:5 ; rose 


; 
:48  CBACKUP-SRCICOMMAND B32 1 


3 1 0001 MODULE COMMAND (2TITLE ‘Command parser’ 

a’ 0008 ' IDENT = 'VO4-000"° 

g 000 dz 

3 4 0004 1 BEGIN 

; 5 0005 1 

; 6 8008 1! 

s S08 } RRR RARER AAAEAAARAAAAEAE RAE TEAA TEETER ATER 

: '® ® 

; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 86 * 

3 10 0010 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
ie M boty : :* ALL RIGHTS RESERVED * 

; 4 * 

3 ig $O18 1 !® THIS SOFTWARE is FURNISHED suoen A LICENSE AND MAY BE USED AND coptee # 

5 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS TWARE OR ANY OTH * 

3 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

3 13 sid : * TRANSFERRED. * 

3 :* ® 

;: @& 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; ea 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $ B05§ ’ _ CORPORATION. * 

4 :® H 

5; 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

ae 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

; 0026 1 !* * 

os ar 0027 1 !* * 

3 $8 it : SRR RRR RAE RAR AAAAAAAARAA AAA AAAEREA EEE AAATER AERA AERAERAAKAAAKERAERERREE EE 

= { 

3 $9 $080 1 

; 3 0031 1 !+¢+ 

; 32 ot T4 1 | FACILITY 

a 0033 1: Backup/Restore 

; 0034 1: 

; 35 0035 1 !' ABSTRACT: ; 

; » 0036 1! This module contains the routines that perform command parsing and 

‘oa 0037 1! analysis. 

3 38 0038 1! 

5 39 0039 1 ! ENVIRONMENT: 

: 40 0040 1! VAX/VMS user mode. 

s 61 0041 1 !-- 

:; 642 0042 1! 

s 65 0045 1 ! AUTHOR: M. Jack, CREATION DATE: 26-Aug-1980 

: 6464 0044 1! 

;> € 0045 1 ! MODIFIED BY: 

: 46 Bose 1! 

s 67 0047 1! v03-015 Lv0520 Larry Yetto 5-AUG-1984 14:15 

; 68 0048 1! #1212. Search’ Lists with concealed devices do not 

; | «649 0049 i! aaa In order to fix this perform the tre Me parses with 

; 50 Bpee 1! the NOCONCEAL flag set_in the NAM. Once this is done 

3; COSY 51 1! we will end up with “.JC” etc. strings, in the file 

; 26 R036 1! spec. BACKUP does not know how to geal with these strings 

 - O82 1! so we will alue s strip out the ".JC' from the file file 

; «54 0054 1! name string. This will result im BACKUP not being able 

5 55 Bnae 1! et below & level deep eicor tories (ie. concealed name hides 8) 

3 29 Bpes : ut at least some cases will work. 


—_—__—_- - -—--- - -—- —---—- —--—_-- . . . a Se 


— 


| 

| COMMAND Command 
$ 8 0 1 
3 g p38 1 
; @& 0 1 
3; 6) 061 1 
ca 0062 1 
a Bpe 1 
; 66 064 1 
3; 6$ 0065 1 
>: 66 B08 1 
; 6 «6OF 0067 1 
8 Be 
; 0 $090 1 
es ae 0071 1 
; Ug O76 1 
Pas : 0073 1 
; | 674 0074 1 
; 75 0075 1 
; | 6%} 0076 1 
. 0077 1 
; f° 0078 #1 
3 79 0079 1 
; 0080 1 
en} 0081 1 
‘7 © 0082 1 
ae 0083 1 
; 0084 1 
s 85 0085 1 
3 5] 0086 1 
:. 8 0087 1 
; 688 0088 1 
; 0089 1 
: oo 0090 1 
7; 91 0091 1 
, ¥ 0092 1 
; 0093 1 
s 0094 1 
; 0095 1 
5 © 0096 1 
; 697 0097 1 
5; 0098 #1 
; 699 0099 1 
; 100 0100 1 
3; 101 Bigs 1 
: 138 1 § 1 
s 10 0103 1 
: 104 pigs 1 
5 ig? 193 : 
s 109 b198 i 
; 108 B18 1 
: 109 109 1 
: 110 110 1 
aaeE Wt 
3 8 118 1 

i 114 0114 «1 


parser 


ere ee ee ee Te eee ee ee ee ee ee ee ee ee 


1$-sep-19 4 $3:6372] rd, Sliss 
1:53:48 8 


14-Sep-1984 ACKUP.SR 


vO3-014 LY0514 Larry Yetto 23-JUL-1984 15:37 
Correct incremental restores so that they do not use 
the current default directory to determine the placement 
of the restored files. 
rry 


v03-013 LY0486 Larry Yetto 27-APR-1984 10:55 
Base Level QAR # 217 = Fix accvio if no output 
file spec 

v03-012 LY0471 Lory Yetto 9-APR-1984 08:21 
wot | the peresre algorithm for input file lists so 
that it will work properly with search Lists. 

v03-011 LMP0140 L. Mark Pilant 23-Aug-1983 8:20 
Add support for alphanumeric UICs. 

v03-010 JEPO003 J. Eric Pollack, 23-Apr-1983 10:53 
Add support for encrypted savesets. 

v03-009 ACG0313 Andrew C. Goldstein, 12-Feb-1983 16:05 
Add routine subtitles 

v03-008 ACG0314 Andrew C. Goldstein, 10-Feb-1983 22:28 
Make /NOREWIND and /NOINITIALIZE default for save sets 

v03-007 ACG0309 Andrew C. Goldstein 19-Jan-1983 11:19 


Fix test for interactive to use SYS$COMMAND properly 


Also change tape block sizes to integral 512 byte units , 


v03-006 MLJ0095 Martin L. Jack, 26-Aug-1982 15:41 ies 
Use CLISEND_PARSE only in standalone version. . 


v03-005 MLJ48501 Martin L. Jack, 17-Aug-1982 15:30 
Correct problem with wildcard version stickiness. 


v03-004 MLJ47951 Martin L. Jack, 27-Jul-1982 11:45 


Correct problem that caused the length of the /JOURNAL value to 


be taken as the length of the /LABEL values. 

v03-003 LMP0032 L. Mark Pilant, 21-Jun-1982 11:83 
Add support for wildcard save set names on the RESTORE and 
LIST operations. 


v03-002 PCG0001 Peter George 18-Jun-1982 13:30 
Check new CLISPRESENT statuses for local qualifiers. 


v03-001 MLJ0084 Martin L. Jack, 27-Mar-1982 17:00 


Allow a save set to be written to a mailbox (including NL:). 


v02-015 MLJ0081 Martin L. Jack, 26-Feb-1982 14:35 
Correct setting of COM INTERACTIVE for standalone and 
STARTUP.COM environments. 


v02-014 MLJ0075 Martin L. Jack, 19-Jan-1982 18:19 | 
Implement /PROTECTION qualifier for save set protection. 
Extend /LABEL qualifier to accept a list. 


COMMAND .B32;1 


a 


* 


> 


Wh —0O0e 


DONOVUEWN —OVONOUL WN —O0OW 


Wt 


a  ____,_.. ee eee Se 
EAR =O OB NAME WN OOD NAUE WIN BOODNAN EWN MOOD NOU EWN OOD NOU 


SSCS COCO LOIS Sob ab abe SeSs hoveussus 
Now w 
SOVOSOOCOSOOCOCOCOC COCO OCOO OOOO O OOOO OOOO O OOOO OOOO OOOO OOO OOO OOOO 


ee ee ed ed od 8 dd od ed dd od dd =. ed dd 


PP PAODAS AMAA DALI IIE ES EE EEE. BSE ANA ANAT SS ahs 
~N 
a a ee a ad ed ed = dd dd = 8 wd 
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vO2-013 MLJ0062 Martin L. Jack, 7=Dec-1981 13:57 
dnp lonent /INCREMENTAL. Allow input volume of a /PHYSICAL 
operation to be eounted foreign or to be mounted Files-11 if 
the process has LOG_I0O privilege. 


vO2-012 MLJ0054 Martin L. Jack, 15-Oct-1981 17:08 
Allow save sets to be network files. Implement /VOLUME 
qualifier. at gee /DELETE qualifier. Integrate GET _VM 
oe acket routines. Delete JPI_STS, add COM_INTERACT 
ag. 


v02-011 MLJ0052 Martin L. Jack, 1-O0ct-1981 13:16 
Implement /INTERCHANGE qualifier. 


v02-010 MLJ0049 Martin L. Jack, 28-Sep-1981 22:06 
Correct test for /IMAGE in standalone environment. 

v02-009 MLJ0043 Martin L. Jack, 8-Sep-1981 16:56 
Account for RMS eae’ device name change. Install $GETSYI. 
Correct /SELECT and /EXCLUDE operation on [000000]. 

v02-008 MLJ0036 Martin L. Jack, 29-Aug-1981 16:00 
Additional error detection. 

v02-007 MLJ0025 Martin L. Jack, 8-May-1981 10:55 


Reorganize qualifier database. Remove /SEARCH qualifier. 
Use PL/I varying strings rather than dynamic strings. 


y92-006 MLJ0022 Martin L. Jack, 21-Apr-1981 13:53 
Convert directory wildcarding to use RMS. 


v0O2-005 mLJ0021 Martin L. Jack, 20-Apr-1981 21:50 
Implement /TRUNCATE qualifier. 


V02-004 MLJ0015 Martin L. Jack, 6-Apr-1981 23:22 
Explicitly check for SS$_NOTRAN in translation of SYSS$NODE. 
Remove unnecessary code fo clear QUAL area. 


v02-003 mLJ0010 Martin L. Jack, 25-Mar-1981 16:20 
Reorganize global storage. Rename /OWNER to /OWNER_UIC. 
Remove unnecessary parts of qualifier database. Add capability 
for 5 ves tae concurrently with another operation. Add c och toe 
for properly mounted volumes. Replace /SEQUENTIAL by /SAVE_SET 
eppe tires on a foreign volume. Reparse to get save set name in 
all elements of a list. Changes for standalone operation. 


v02-002 mLJ0008 Martin L. Jack, 10-Mar-1981 11:44 
Rename /FILE to /SAVE_SET 
v02-001 MLJ0005 Martin L. Jack, 26-Feb-1981 17:08 


Allow null input save set filename 


ee ee ee ee ee ee eed ee ee ee ee 


eH 


CLISEND_PARSE: WEAK ADDRESSING_MODE (GENERAL), 
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COMMAND Command parser i.e 1984 23:45:21 AX-11 Bliss-32 V4.0-742 Page 
v04-000 12-8681 98¢ $7:63:28 EBACKUP- SRE COMMAND .832;1 ° 

199 168 REQUIRE ‘SRC$:COMMON'; 

170 és LIBRARY ‘SYSSLIBRARY:LIB'; 

172 fe LIBRARY ‘SYSSLIBRARY: TPAMAC'; 

17 7 

174 8 FORWARD ROUTINE 

175 7 CALL_TPARSE ! Execute call to LIBSTPARSE 

176 80 PRESERVE_ STRING: NOVALUE, i preserve string value 

17 4 GET _FC ' Get a file context area 

178 : OpY_Fe: NOVALUE , i Copy one FC to a new one 

179 8 INIT FC: NOVALUE, ! Init an_ existing FC incl related name 

190 ee PARSE EXC SEL: NOVALUE, ' Parse /EXCLUDE ang /SELECT 

181 5 EXPAND SEARCH_LIST, ! Expand a search List 

18 Hy CHECK_SAV: NOVALUE, ! Check save set input/output spec 

18 8 CHECK_F11: NOVALUE, ' Check files-11 input/output spec 

1 88 CHECK_COMMON: NOVALUE, ' Check common input/output spec 

1 89 BUILD_QUAL_DESC:NOVALUE, ' Build quot i¢ tor block descriptors 

} 90 CHECK: NOVALUE, ! Check input and output specifications 

: $3 D: NOVALUE ; ! Parse BACKUP command 

1 9 

1 94 EXTERNAL ROUTINE 

1 95 

1 

1 

1 

1 

1 

1 

1 

1 

2 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


84 

85 

86 

87 

88 

89 

+ 

36 96 ! Declare end of parsing for STACLINT 
9 97 CLISGET_VALUE: ADDRESSING_MODE (GENERAL), 

9% 98 ' Get a parameter or qualifier vaiue 
95 99 CLISPRESENT: ADDRESSING_MODE (GENERAL) 

96 00 ' Determine if entity is present 

97 01 LIBSCVT_DTB: ADDRESSING_MODE (GENERAL), ¥ : . 

98 4 ! Convert decimal string to binary 
99 0 LIBSCVT_TIME: ADDRESSING_MODE (GENERAL), 

00 04 ' Convert absolute time to binary 

201 305 LIBSTPARSE: ADDRESSING_MODE (GENERAL), 

20. 306 ! Table-driven parser 

20 307 SYSSSETDFPROT: ADDRESSING_MODE (GENERAL), 

204 308 ! Read/set default file protection 
05 309 CRYPTO_INIT: NOVALUE WEAK, ! Initialize for saveset encryption 
06 310 FILE ERROR: NOVALUE, ' Signal file-related error 
07 311 GET_VM ' Allocate virtual memory 
08 318 GET~ZERO_VM, : Allocate and clear virtual memory 
09 12 FREE_VM: NOVALUE ; ! Deallocate virtual memory 
11 315 
\ 318 EXTERNAL LITERAL 
1 1 BACKUPS_ENCNOTSUP, 

14 318 BACKUPS$_ENCQUAIGN, 
15 319 CKUP$_INVQUAVAL, 
16 320 BACKUPS_INVDEVTYP, 
1 1 BACKUPS_P. 
18 ¢ BACKUPS$_INCDEVLIS, 
19 BACKUPS_ONE ° 
$9 4 BACKUPS_CMPOUTF11, 
1 5 BACKUPS_SAVSETNAM 
§ $ $_ONEIMGDEV, 
BACKUP$_ONEF1IDEV, 
4 8 BACKUP$_ONEPHYDEV, 
25 9 BACKUP$~PHYF ILSPE, 


F 9 
C ND Command parser 15-Sep-1984 AX-11 Bliss-32 V4.0-742 Pa 
-000 , 14-5 att fi 73 $3: eB BACKUP. SRC COMMAND . 832;1 of: 
3 $ 1330 (1 BACKUPS_IMGFILSPE, 
s 1331 +#1 BACKUPS_ NCFILSPE, 
3 8 1 § 1 iis Sab oe 
; 209 1 1 BACKUP$_MOUNTF 11, 
3 0 1 1 ACKUPS_MOUNTFOR, 
: 1 1335 1 CKUPS$~ CONF QUAL, 
; ¢ 1 § 1 CLI$_PRESENT. ! Explicit global /QUAL 
3 1 1 CLIS_NEGA TED, ! Explicit global /NOQUAL 
; 1 : 1 CLIS_ABSENT ! Implicit plobat /NOQUAL 
: 235 1 1 CLIS“LOCPRES, i Explicit Cocal /QUAL 
3 § 1340 1 CLIS_LOCNEG; ! Explicit local /NOQUAL 
: $38 13ez | 
3 9 1 re 1 GSDEFINE(); ! Define global area 
: ef 1348 4 
3 eg ' rf] : FORWARD 
3 ! tables, which are de at the end o s module. 
rt] ; 1 : TPARSE bl hich defined h d of thi dul 
3 346 1350 1 UIC_STATES: VECTOREO] ADDRESSING_MODE (LONG RELATIVE), 
3 47 1351 1 UIC_KEYS: veeroe 0 ADDRESSING_MODE(LONG_RELA TIVE); 
$ 48 1 26 1 OWN_STATES: ECTORLO] ADDR SSING_MODE(LONG_RELATIVE), 
3 49 135 1 OWN_KEYS: VECTOR 0] ADDRESSING _MODE(LONG_RELATIVE), 
$ 50 1354 (1 IGN_STATES VECTOR 8 ADDRESSING _MODE(LONG_RELATIVE), 
3 51 1355 1 IGN_KEYS VECTOR ADDRESSING _MODE(LONG_RELATIVE), 
; 2g 1326 1 BAK_STATES VECTORLO) ADDRESSING _MODE(LONG_RELATIVE), 
: 5 135 1 BAK_KEYS VECTORLO] ADDRESSING MODE (LONG_RELATIVE), 
; 54 1358 1 PRO_STATES VECTORLO] ADDRE G_MODE(LONG_RELATIVE), 
Hy rH 1366 ; PRO_KEYS VECTORLO)] ADDRESSING” “MODE (LONG_ RELATIVE); 
3 57 1361 1 
5 38 1308 : BIND 
: 60 1383 1 ! TPARSE Pay ouTPuT A variables. To save space, these are defined 
; 263 1363 : ; to overlay OUTPUT_ATTBUF. 
; rs 1369 1 CONVERTED _UIC= OQUTPUT_ATTBUF, ' Converted UIC 
: 264 1368 1 AGS= OUTPUT— “ATTBUF +8: BLOCK(1), ' Various flags 
3 65 1369 1 1PAT PROTECTION= OUTPUT~ ATTBUF : VECTORC,WORD], ! Protection 
3 66 1370 1 DEVELASS= OUTPUT~ ATTBUF ; ' For $GETDVI 
. oe 
; , ' 73 : MACRO 
3 4 : ? : : Definitions of TPA_FLAGS. 
: 4 1 > 1 iPA _WGROUP= -0,1,0 %, ! Wild group number 
: 276 1378 1 _WhEMBER= -1,1,0 2, ! Wild member number 
: 275 1379 1 TPA_DEFAULT= gel i, ! DEFAULT specified 
: ev 1 +} 1 TPA_ORIGINAL= 2321.0 &, ! ORIGINAL specified 
3 7 13581 1 TPA_PAREN -4.1,0 &, ' PARENT of tting® 
3; 278 1 ; 1 A_UIC= otolee Be ' VIC spec fied 
: 79 1 1 TPA_NOBACKUP= G1. i, : NOBACKUP specified 
3 80 1 1 TPA_INTERLOCK= of,1,0 2; ! INTERLOCK specified 
: 281 1 +H 1 
3 282 1 1 
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LITERAL 
i 


eee 

BBEBEEEE 
cvVvoVv 
—>»> wm 


+ 4 4 4 
vuvuvuvVUUU 


I 
I 
I 
I 
] 
] 
I 
I 


mP uma» 
=g 
“ 
i i ee i Be es Be | 


nee § 
LOCK= 


VAR_BODY= ! Body of varying string 


CHK_FLAGS: BBLOCK(4]; ! Flags for CHECK routines 


CHK_FLAGS_COUNT= 
CHK-FLAGS_F11= 
CHK" FLAGS” SAV= 
CHK"FLAGS SAVE _SET= 
CHK~FLAGS~SRCH-LIST= 


0.0.8.0 %. ' Count of items in List 

Salictel Be ' True if Files-11 seen 

Tolelee Be ' True if save set seen 

1.4.1.0 2. i True if /SAVE_SET 

1,3,1,0 %: ' True if search decoding is needed 


ee 
BEES E EEE PMN 


sSSEteSeaessesestasssses 


1 

1 

1 

1 

1 

1 

1 

: 

1 VAR_LENGTH= -0,16,0 %, ! Length of varying strin 
3° 6 3; ’ H . 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


—- -—-—- --- -- 45 


eo | 
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ND Command 15-Sep-1984 23:45:21 AX-11 Bliss-32 V4.0-742 
-000 CALL_TPA PaRse = = call LIBSTPARSE 14-Sep-1984 73 $3:2h BACKUP. SRCJCOMMAND 832; 1 
09 1413 1 ZSBTTL "CALL_TPARSE = call tl STPARSE' 

19 1413 i ROUTINE CALL“TPARSE(SRC,STATES,KEYS)= 

fe ee Bie 

14 1219 1! FUNCTIONAL DESCRIPTION: 

1? 1213 ! This routine executes a call to LIBSTPARSE. 

13 1420 1 | INPUT PARAMETERS: 

18 1421 1! R = Pointer to the string to be pkaczee (PL/I varying). 
1 14 1! STATES = State table parameter for TPARSE. 

, 16 : } KEYS - Keyword table parameter ay TPARSE. 

1425 1 ' IMPLICIT INPUTS: 
14 1! NONE 

4 14 8 1! 

5 14 g 1 | OUTPUT PARAMETERS: 

eres ho 

% 1431 1! IMPLICIT OUTPUTS: 

$9 1288} | -_ 

3 1434 1 ' ROUTINE VALUE: 

¢ + 5 : As returned by LIBSTPARSE. 

3 14 $ 1 ' SIDE EFFECTS: 

35 14 § 1: NONE 

36 14 1: 

37 1440 1 i-- 

bf.) 1441 1 

an 

t He | oto REF BBLOCK; ! Pointer to varying string 
rt 1446 TPA_PARAM: BBLOCKCTPASK_LENGTHO]; ! TPARSE parameter block 

5 1448 

6 1449 2 CHSFILL(O, TPASK_LENGTHO, TPA_PARAM): 

4 1450 2 TPA_PARAMCTPASL_COUNT) = TPA ASR COUNT; 

48 1451 2 TPA-PARAMLTPASL ~O OPTIONS) = PASM_ABBREV; 

9 1458 TPA~PARAMLTPASL~STRINGCNT SACL GAR linctH): 

50 145 TPA” PARAM TPASL™ STRINGPTR] = = SRCEVAR R BODY); 

21 1656 LIBSTPARSE (TPA. PARAM, .STATES, .KEYSY 


TITLE COMMAND Command parser 
“IDENT \V04-000\ 


«PSECT COMMON,NOEXE, OVR,2 


00000 GLOBAL _BASE: 


L 

00000 FREE UIST: 

00008 INPUT_WAIT: 
-BLK 


0 
8 
8 


Pa 
” (3) 


cc 


| COMMA’ -Sep- 745: - - 
| "000 CALL TPARSE’® call LIBSTPARSE sie 7:93:23 BACKUP’ SRE COMMAND BSos1 


00010 REREAD_WAIT: 
00018 ouTPUT_wWAIT: 


LK 
890 O JPI_UIC: “BLK 
024 JP “USERNAME : 


00030 JP1_pATE: 

| 00038 JPI_NODE ‘DESC: 
00040 JPI _CURPRIV: 
00048 sv1 version: 


Ons SYI_SID: *BLKB 
0050 RwST_ HOLD bests 


00058 RwSV_ crcie: i 
00098 RwSV -AuTODIN: 
00008 RwSV _FILESET ID: 
OOOEO RWSV_VOLUME ID: 
000EC RUSV_VOL’ NUMBER: 
OOOEE RWSV_ SEG’ NUMBER: 
OOOFO RWSV_FILE NUMBER 
000F4 RWSV_SAVE QUAL: 
OOOF8 RWSV_SAVE FAB: 
OOOFC RWSV_CHAN: “a 
00100 RWSV_XOR “Bc: 
00104 RWSV_IN, SEQ: 
00108 RWSV_IN_SEQ 0: 
0010¢ RWSV_IN_KOR SEQ: 
00110 RUSV_IN_KOR RFA: 
00116 RWSV_LOOKAHEAD: 
00117 RwSV_ -10nsiTE: 
00118 RWSV_IN_ GROUP. SIZE: 
0011¢ AVSV_IN_ERRORS 
0011€ RUSV_IN_KORUSE : 


— @ 
~™ 


SNe = ORR RR OR OR OR BEN 
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voe-000 ERLE TPARSE = call LIBSTPARSE 13-Sep-1984 $7:33:28  eekckUe sae conmns esses tag 
00120 RWwSV_IN_ ORGERR: 
00128 RWSV_IN iB: 
0012C RWSV_IN_VBN 
00130 RWSV_ALLOC: 
00134 RWSV_EOF: 
00138 RwSV_OUT. “Seo: 
0013C RWSV_OUT -VEN: 
00140 RwSV_OUT “BLOcK. COUNT: 
00144 RUSV_OUT_ERRORS: 
00146 RUSV_SEQ_ERRORS: 
00148 RWSV_OUT.GROUP_COUNT: 
00149 RWSV_PADDING: 

BLKB 


0014C QUAL:  .BLKB 
001BC COM SSNAME: 


001¢4 COM_VALID TYPES: 
001C6 COM_FLAGS: 
001C8 COM_PADDING: 
001¢9 COM_BUFF COUNT: 
001CA COM_I ~SETCOUNT: 
001CB COM_O ~SETCOUNT: 
001CC COM_1 = STRUCNAME : 
001D8 COM_O_ STAUENAME: 
001E4 COM_O -BSADATE: 
OO1EC ALT_SSNAME: 
0020C INPUT_FUNC: 
0020D INPUT _atiPet 
0020€ ouTPUT FUNC: 
OO20F FAST_STRUCLEV: 
00210 INPUT_BEG: ° 


” a htt ne a oe er one ee ee ee 
~ 


~m %~ 
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— 
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Command peceer 
CALL_TPARSE = call LIBSTPARSE 


Hoseo-toge 28:45:21 


00210 
00214 
00216 
00218 
0021C 
00220 
00224 
00228 
0022C 
00230 
00234 
00238 
00240 
00248 
00248 
00250 
00258 
00260 
09268 
0026C 
00270 
00290 
00290 
00290 
00294 
0029C 
002A4 
002A6 


-BLKB 0 
INPUT_CHAN: 


BLK 
Tt US 
INPUT_PADDING: 
INPUT_FAB: 
INPUT _NAM: 
INPUT _BCB: 
~BL 
INPUT QUAL: 
INPUT_BAD: 
BLK 
INPUT BLOCK: 
INPUT _MAXBLOCK: 
INPUT_MEDIA_ID: 
INPUT NAAEDE SC: 
INPUT_STATBLK: 
.BLKB 
INPUT_HDR_BEG: 
.BLKB 
INPUT_CREDATE: 
-BLKB 
INPUT_REVDATE: 
BLK 
INPUT _EXPDATE : 
INPUT BAKDATE 
INPUT_F ILEQWNER: 
INPUT_FILECHAR: 
INPUT_RECATTR: 
.BLKB 
INPUT_HDR END: 
BLK 
INPUT_END: 
-BLKB 
INPUT_PROC LIST: 
-BCKB 
INPUT_PLACEMENT : 
INPUT_VBN_LIST: 
.BLKB 
INPUT_PLACE_LEN: 
INPUT_PADDING_2: 
.BLKB 


- f-+ @oowmddemedeoedq®mie®mwrtr &£& F&F fF Ff Ff FN NH F&F 
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AX=11 Bliss-32 V4.0-742 
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row al 


04-000 


Command 
CALL_TP 


ISoseoctage 25:45:24 


SE - > call LIBSTPARSE 


002A8 
002A8 
002AC 
OO2AE 
00280 
00284 
00288 
0028C 
002Cc0 
002C4 
0028 
o02cc 
00204 
00364 
00364 
00368 
0036C 
00370 
00374 
00378 
0037¢ 
00380 
00384 
00385 
00386 
00388 
00388 
0038C 
00390 


OUTPUT BEG: 
OUTPUT_ Chan: 
~BLK 
OUTPUT FLAGS: 
OUTPUT_PADDING: 
OUTPUT_FAB: 
OUTPUT_NAM: e 
OUTPUT sis: 
OUTPUT -AUAL : 
OUTPUT BAD: 
OUTPUT si dtk: 
OUTPUT -MAXBLOCK: 
OUTPUT _DEVGEOM: 
-BLK 
OUTPUT AT TBUF : 
OUTPUT END: 
LIST_TOTFILES: 
BLK 
LIST_TOTS27€: 
VERIFY FAB: 
VERIFY_USE “COUNT: 
VERIFY QUAL: 
COMPARE _BCB: 
LKB 
FAST_BUFFER: 
FAST_BUFFER SIZE: 
FAST_RVN: 
FAST_PADDING: 
-BLKB 
DIR_VERLIMIT: 
-BLKB 
FAST_VOL_BEG: 
~BLKB 
FAST_IMAP_SIZE: 
FAST_IMAP: 
FAST_HDR_OFF SET: 


Sonne ern enn 
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BACKUP. SRC JCOMMAND .832; 1 


rae 


04-000 


Command 
CALL_TPARSE = call LIBSTPARSE 


arser 


fi33ia 


BLKB 
FAST_BOOT_LBN: 


18-59-1986 
14-Sep-1984 


00394 
00398 
00398 
0039C 
003A0 
003A4 
003A8 
OO3AC 
OO3AE 
00380 
00382 
00383 
00384 
00386 
00388 
0038C 


00308 
003E0 
003E8 
003E9 
OO3EA 
003EB 


-BLKB 
FAST VOL_END: 
JOUR_BUFFER: 
JOUR_DIR: 

.BLK 
JOUR_HIBLK: 

~BLK 
seateesihet 
JOUR_INBLK: 
JOUR_FFBYTE: 
JOUR_INBYTE : 


JOUR_STRUCT LEV: 


~BL 

JOUR_ COUNT: 
.BLKB 
JOUR_REVERSE : 

JOUR_EXS2: 
JOUR_PADDING: 


~BLK 
CHKPT_HIGH_SP: 


-BCK 
CHKPT_LOW. SP: 
CHKPT_STACK: 
-BLKB 
CHKPT_VARS: 
~BLK 
CHKPT STATUS: 


.BLKB 
DIR_SEL_DIR: 
DIR_SEL_NTV: 
BLK 
DIR_STRUCLEV 
DIR_LEVELS: 
DIR_FLAGS: 
-BLKB 
DIR_STATUS: 
.BLKB 


- —- = —- @S wo fF FHF OF FF Ff fF FH WH | HKS— NN NY FSF fF FF fF Ff CO S&S 


AX-11 Bliss-32 V4.0-742 
BACKUP. SRC JCOMMAND .B32; 1 


COMMA Command if52 $ep-1984 23:45: AX-11 Bliss-32 V4.0-74 faa 3 
yoer000 CALL_TPA SE = call LIBSTPARSE 12-8 08-13e #7593325 BACKUP. SRC COMMAND B Soot ~— (33 
OO3EC DIR =STRING: 
0052C DIR STACK: 
00790 DIR_SP: “BL KB 
0794 DIR-SEL_LATEST: 
LBL 
0798 DIR_END: .BLKB 
0798 DIR- ~SCANL IRI: 
007B8C INPUT Atle 
007CO ouTPUT nite 
007C4 CURRENT Att: 
007C8 CURRENT_ -V¢B: 
007cCc CURRENT _WCB: 
00700 ACL_FIB_DESCR: 
-BLKB 


LK 
007D8 ACL_FIB: -BLKB 
00818 ACLILENGTH 


7 .BLKB 

0081C ACL_BUFFER: 

.BLKB 
00820 CRYP_IN_CONTEXT: 
00824 CRYP_OU_CONTEXT: 
00828 CRYP_DA_CONTEXT: 
0082C CRYP_DATA ENCIV: 
00834 CRYP_DATA CODE: 
00838 CRYP_DATA KEV: 
00840 CRYP_DATA Iv; 
00848 CRYP_DATA_CKSM: 

-6LKB 


320 


- oomort-omorr & F&F fF fF OO fF fF fF HF S&F 


.PSECT DATA,NOEXE,2 
00000 CHK_FLAGS: 


~BLKB 4 
CONVERTED_UIC= OUTPUT_ATTBUF 
FLAGS? OUTPUT"ATTBUF +8 
TPA-PROTECTION= CUTPUT AAT TB UF 
DEVCLASS= OUTPUT~ATTBU 
~EXTRN CLISGE TVACUE + EGESPRESENT 
‘ N thascytcp ME 
~EXTRN LIBS TPARSE, “ott SETDFPROT 
-EXTRN FILE_ERROR, GET_VM 


cc 


COMMAND 


Command 
/ V04=000 


10 
18-Sep-1984 
CALL. TPARSE = call LIBSTPARSE z3e0=13 


14-Sep-1984 


.PSECT 


ra) 00 6E 


04 
08 AE 04 
OC «(AE 06 AC 


000000006 00 03 


~ 

m 

Oo 

co 

> 

oO 
OMONOWOSO ~wO 
FOanmgo—-moo or 


3; Routine Size: 44 bytes, Routine Base: CODE + 0000 


1:33:48 


AX-11 Bi ist =32 V4.0-742 
BACKUP. SRO) COMMAND .B32; 1 


GET_ZERO_VM, FREE_VM 
BACRUP$ jean 


BACKUPS CONF QU, 

$_PRESENT. vets NEGATED 
tate -ABSE T, CLI$_COCPRES 
CLIS“L 
ELISEND. PARSE, CRYPTO_INIT 


CODE ,NOWRT,2 


Save Rg. R3,R4,R5 

+ (SP), #0, #36, TPA_PARAM 
#8, TPA_PARAM 

sSkcy TPA_ PARANSS 

#2 

STATES Fs. 

3,7 LIBS TPARSE 


rae 


a 


| 
| 
| 
| 
| 
| 
| 


COMMAND Command pars 4 23:45:2 AX-11 Bliss-32 V4.0-742 Page 15 
 ¥O4-000 PRESERVE _STRING = save string buffer 14-Sep-1984 #736328 (BACKUP. SRE COMMAND .832;1 (4) 
ls 4 14 § 1 ZSBITL ‘PRESERVE_STRING = save string buffer’ 

3 5 i : ROUTINE PRESERVE_STRING(SRC,DST): NOVALUE= 

: : 14 § 1 te 

; 358 1460 1! 

; 359 1461 1 =! FUNCTIONAL DESCRIPTION: 

; 360 1288 1! This routine saves the contents of the string buffer in dynamically 

; 361 1465 1! allocated memory, 

3 oe 1464 1! 

: 6 1465 1 ! INPUT PARAMETERS: 

3 64 1708 1! SRC - Pointer to input — (PL/I yory ine) - 

: 30? 1467 1! DST - Pointer to descriptor that is initialized to 

3 $8 icon : describe the copy. 

: 68 1256 1 ! IMPLICIT INPUTS: 

; 369 1471 1: NONE 

; 370 1078 1! 

$ 71 147 1 ! OUTPUT PARAMETERS: 

; Le; 1474 1! NONE 

; 37 1475 1! 

: 74 1476 1°! IMPLICIT OUTPUTS: 

3 ee 1477 7! NONE 

3; 376 1478 1! 

3; 377 1479 1 =! ROUTINE VALUE: 

s 578 1480 1! NONE 

3 79 1481 1! 

; 80 14 1 ! SIDE EFFECTS: 

; 381 14835 1! Dynamic memory is allocated, 

: s0¢ 1484 1! 

: 38 1485 1 !-- 

; «384 1486 1 

s 3a 1487 BEGIN 

: $59 1488 P ; 

3; 387 1489 SRC: REF BBLOCK, ! Pointer to PL/I yarying string 

; 388 1490 DST: REF BBLOCK; ! Pointer to descriptor 

3; 389 1491 § 

; 390 1636 

$ 3) sear : Initialize output descriptor. 

3 395 1495 DSTCDSC$W_LENGTH) = .SRCCVAR_LENGTH); 

3 $90 1496 DST peteeqes seed = DSCSK_DTYPE_T; 

: 395 1497 2 DSTCDSCSB-CLASS] = DSCSK~CLASSS; 

; 396 1498 

; 397 1499 

; 398 1500 2 IF .SRCCVAR_LENGTH) NEQ 0 

; 399 1501 THEN 

; 4600 1388 BEGIN 

; 401 150 ‘ 

3 rt 1208 : Allocate memory to hold string. 

3 rts: 133 DSTCDSCSA_POINTER) = GET_VM(.SRCCVAR_LENGTH)); 

: 406 1508 

: rt 1299 : Copy string to allocated memory. 

; 109 iar CHSMOVE(.SRCCVAR_LENGTH), SRCCVAR_BODY], .DSTCDSCSA_POINTER]); 

: 610 1512 END; 


10 
er 1$-sep-19 


Fn 


| ¥O4-000 


; 411 


3; Routine Size: 


10 
PRESERVE STRING - save string buffer 15- =3007 138% 73 $3: 3 BACKUP SRE CORMAN B S351 
1513 1 END; 


003C 00000 PRESERVE aL a 


Save R2,R3,R4,R5 
2 08 AC D 8 $e si DST, Re 
4 ag MOVL SR R 
‘ 6 BO OO00A vw  (R3S, (R2) 
02 A O10E «BF OC 900 MOVW #270. 2(R2) 
63 8 1 TSTW (R3) 
14 13 0001 EQL=Ss«1$ 
43 63 3C 00017 MOVZWL (R3), =(SP) 
000000006 0 01 FB OOO1A CALLS #1, GET i" 
04 ag 50 pO 00021 MOVL RO. 4(R2) 
04 82 02 =A 63 28 00025 MOVC3 (RS), 2(R3), a4(R2) 
04 00028 1$: RET 


44 bytes, Routine Base: CODE + 002C 


Page 16 
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COMMA Command parser 1S-se $1984 23:45:21 AX-11 Bliss-32 V4.0-742 P 17 
voe008 GET_FC initialize file context area 14-Sep-19 4 $7:$3:23 EBACKUP-SRe COMMAND .B32; 1 ett (5) 
; 413 1514 1 ZSBTTL ‘GET_FC = initialize file context area’ 

> 414 1515 1 ROUTINE GET_FC(SRC)= 

> 415 1 18 1 

3 oi$ 151 1 fee 

: (41 1 18 1! 

3 $18 1519 1 ! FUNCTIONAL DESCRIPTION: 

; rt : y ! } This routine gets a file context area, initializing it. 

; 421 1 ¢ 1 ! INPUT PARAMETERS: 

3 : § 1 2 : } SRC - Pointer to filename string (PL/I varying). 
> 426 1525 1! IMPLICIT INPUTS: 

: : 5 ' § \ } NONE 

; 4 5 15 : 1 ! OUTPUT PARAMETERS: 

: 428 15 1! NONE 

> 429 2 0 1! 

; 450 1531 1 ! IMPLICIT OUTPUTS: 

: 431 15 ¢ se NONE 

; $36 15 1! 

3 4 1534 1 ! ROUTINE VALUE: 

3 rt 12 5 : Address of the allocated memory. 

>; 436 1337 1 ! SIDE EFFECTS: 

; 437 1538 1! LIBSGET_VM errors may be signalled. 

3 rt 1539 1! 

3; 6 1540 1 !-- 

: 440 1541 1 

3; 441 1286 BEGIN 

3; 44 154 MAP . 

3 «44 1544 : REF BBLOCK; ! Pointer to PL/I varying string 
3 444 1545 LOCAL 

3 445 1346 DESC: BBLOCK(8), ! Descriptor for preserved string 
> 446 154 AREA: REF BBLOCK; ! Pointer to allocated area 
3 447 1548 

; 448 1549 

; 449 1550 PRESERVE_STRING(.SRC, DESC); ! Get dynamic copy of string 
3 450 1551 2 AREA = GET_ZERO_VM(FC_S_AREA); 

3; 451 P 1326 SFAB_INIT( 

; 45 P 155 FAB=AREALFC_FAB) 

; 45 P 1554 ENA= .DESCEDSCSA_ POINTER], 

3; «64454 P 1332 epaaneit DSC$W_LENGTH), 

3; 455 1556 =AREALFC_NAM]); 

3; «645 B 132f SRAB_INIT( 

3 465 P 1558 RAB=ARE Frc _RAg) 

; 458 1559 FAB=AREALFC-FABJ); 

: 459 P 1560 SNAM_INIT( 

; 460 P 1561 =AREACFC_NAM), 

> 461 P 1368 RLF =AREACF CRLF), 

; 46 P 156 ESA=AREALFC_ESAJ, 

: 46 P 1564 ESS= XRSS. 

: 4646 P 1565 RSA=AREALFC_RSA 

i 465 : 136 RSS=NANSC_MAXRSSS ; 

: te? 1368 RAM=AREACFC_RLF I); 

; 468 1268 AREA 

3; 469 1570 END; 


C Command parser 
| ¥oe-000 GET-FC ~ initialize file context area 
0 
SE 8 
SF 
0 AC 
(6 AF 0 
7 0354 BF 
000000006 9 0 
0050 8F 00 ée 09 
67 $003 BF 
16 A? 0 
if A? 
5 0094 
28 A 6 
gc AT 06 AE 
4 A? 6 
58 SO A 
0044  8F 00 éE 00 
68  4401_—sBF 
3c AB 57 
0060  8F 00 6E 00 
66  6002.—BF 
02 A6 01 
06 AB 0254 «C7 
OA Ab 01 
OC AB 0154? 
58 0F4 CC? 
10 A6 58 
0060 8F 00 6E 00 
68 6002 BF 
50 ? 


3; Routine Size: 148 bytes, 


; 470 1571 1 
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Routine Base: CODE + 0058 


GET_FC: .WORD 
SUBL2 


10 
~eeer i 8he Hiskiza — LaNckuP saeSconmand BS2-1 


save R2,R3,R4,R5,R6,R7,RB 
cp’ SP 


SRC 
WG, PRESERVE, STRING 
#852, -(SP 

#1, GET_ZERO_vM 


ae ARE 
#0, (SP), #0, #80, (AREA) 


#20483, (AREA) 
a3. 2 AREA) 
‘ 


EA), R 
#0, (SP). #0, #68, (RB) 
#17409, (RB) 
AREA, 60(R8) 
#0, (SP), #0, #96, (RO) 


#24578, (R6) 


R8, 16(R6) 
#0, (SP), #0, #96, (RB) 


#24578, (R8) 
REA, RO 


; 1559 


1566 


1568 


1570 


r 
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Command parser 15-Sep-1984 23:45: AX-11 Bliss-32 V4.0-742 Pa 0 
COPY_FC . copy file context area 12=808= 138s #758328 EBACKUP-SRCTCOMMAND .852¢1 at BS 
1629 CONTINUE : BYTE , 
16350 STR_F OUND : BYTE ; 
1631 
16 § 
16 FAB = FC C FC_FAB ) ; 
1685 5: 
16 § : Allocate memory for the file name string and copy the string. 
16 ' PARRA AALALELLSELELELE LETTE TES EEE EEE EECA CERCLA EEA ASE E EEE ECE ELECT EEE eae 
16 8 ! SEKKKSAAAARASKAKAKRAAAAAAARAAARAHTAAAEAATAAERAEEAAAARAEHAEAERAERAARAERETRAREREEAEEEEEE 
1639 ! In the process of coppyng it strip out all ".JC°', “.J<", ".>0°° ,and ‘'.><" 
1640 ! strings. This puts a restriction on BacKur ince we will no longer be able 
1641 ' to deal with a concraled device which hides 8 directorie levels but at the 
1966 ! present time there is no time for a osre elegant solution. This problem 
164 ! was foperted in QAR #1212 from the FI2 data base. Search lists with 
1644 ' concealed devices do not work. 
1645 ' LAA RAAAASALALLEALEAE ELSES EEE REESE RE EES ERE EERE EERE EERE EERE EER EE SSE E CECE CEL Ea 
128 ' PRRRAAASALALELESEE SESE REECE EERE REE EASES EACLE RE EERE EEE EE EEE SESE SSE E EEE EEE ee aa 
164 : 
1648 
196) WORK FILE NAME = GET_VM ( .FILE_LEN ) ; 
165 CHSMOVE (~.FILE_LEN, .FILE_ADDR, .WORK_FILE_NAME ) ; 
1651 NEW_FILE_LEN = -FILE_LEN ; 
1828 CONTINUE = 1 ; 
1654 STR_FOUND = 0 
1655 2 WHICE .CONTINUE DO 
1656 BEGIN 
1657 STRI_PTR = CHSFIND_SUB ( .NEW_FILE_LEN, .WORK_FILE_NAME, LEN1, STR1 ); 
1028 STR2_PTR = CHSFIND_SUB ( .NEW_FILE_LEN, .WORK_FILE_NAME, LENG. sine ); 
165 STRS_PTR = CHSFIND_SUB ( .NEW_FILE-LEN, .WORK_FILE-NAME, LENS, STR3 ); 
1999 STR4_PTR = CHSFIND_SUB ( .NEW_FILE_LEN, .WORK_FILE_NAME, LEN4, STR4 ); 
1066 IF NOT CHSFAIL (.STR1_PTR) 
166 THEN 
1664 4 BEGIN 
1665 4 STR_FOUND = 1 ; 
1666 4 STRT_PTR = .STRI_PTR +1; ' Skip past "."" 
1667 4 NEW FJLE_LEN = .REW FILE_LEN = LEN1 + ° 
1668 4 CHSMOVE T (.WORK FICE NAME + .NEW_FILE_LEN - .STRI_PTR), 
1669 4 ~STR1_PTR #"LENI = 1, 
1670 4 ~STRI-PTR ) ; 
1671 4&4 END 
1678 ; it 4 IF NOT CHSFAIL (.STR2_PTR) 
167 HEN 
1674 4 
1675 4 STR_FOUND = 1 ; 
1676 4 STR2_PTR = .STR2. PTR +1; ' Skip past ‘’."" 
167 4 NEW FILE LEN = .REW FILE _LEN = LEN2 + : 
1978 4 HSMOVE T (. WORK FICE_NAR + NEW_FILE_LEN - .STR2_PTR), 
1679 4 .STR2_PTR #"LEN2 = 1, 
1680 4 .STRO-PTR ) ; 
1681 4 END 
16 § ; ELSE IF NOT CHSFAIL ( .STR3_PTR ) 
16 THEN 
16 4 BEGIN 
1685 4 STR_FOUND = 1 


ae 
| 
! 
| 
| 
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C Command parser yee “19 7:45:21 AX-11 Bliss-32 V4.0-742 Pa 21 
700-000 CoPY_FC - copy file context area 12-808=1 98e #7 :$3:23 EBACKUP. SRE COMMAND .832; 1 ne (6) 
; 1 4 STR3_PTR = .STR3_ PIR +1; ' Skip past "’."’ 

; 1 4 NEW FILE_LEN = .REW FILE CEN = LEN3 + 1; 

; 1688 4 CHSMOVE T (WORK FICE LNARG + ,NEW_FILE_LEN = .STR3_PTR), 
: 389 16 4 -STRS_PTR *LENS = i, 

; 591 1691 4 STR2_PTR = CHSFIND_CH ( .WORK_FILE_NAME * .NEW_FILE_LEN = .STR3_PTR, 
; 3 169¢ 4 .STRS-PTR, 

; 59 1693 4 xc']'y ; 

; 594 1694 4 IF NOT CHSFAIL (.STR2_PTR) 

; 595 1695 4 

; 96 1696 4 STR2_PTRCLO] = XC'>" ; 

; 59 169 

; 598 169% ELSE IF NOT CHSFAIL ( .STR4_PTR ) 

; 599 1 THEN 

; 600 1 90 4 BEGIN 

; 601 1701 4 STR_FOUND = 1 ; 

; 60 1708 4 STRE_PTR = .STRG PIR + 1; ' Skip past ‘'."" 

; 60 1703 4 NEW FILE LEN = .REW FILE LEN = LENG + 1 ; 

3 604 1704 4 CHSMOVE T (.WORK FICE_NAME + .NEW_FILE_LEN - .STR4_PTR), 
; 605 1705 4 «STR4_PTR *+°LENG = 1, 

; 606 1706 4 S$ R); 

; 60 1707 4 STR2_PTR = CHSFIND_CH ( .WORK_FILE_NAME + .NEW_FILE_LEN - .STR4_PTR, 
; 608 1708 4 ~STR4-PTR, 

3; 609 1709 4 ZC°>'S ; 

; 610 1710 4 IF NOT CHSFAIL (.STR2_PTR) 

3; 611 711 4 

; 612 W218 4 STR2_PTRLO] = XC')" ; 

; (61 1713 4 

; 614 1714 ELSE CONTINUE = 0 ; 

3 615 1715 

; 616 1716 END ; 

; 61 171 

; 618 1718 2 IF .STR_FOUND 

3; 619 1719 2 THEN 

; 620 1720 BEGI 

; 621 1721 FILE_NAME = GET_VM ( .NEW_FILE_LEN ) ; 

; 6 ¢ 17 : CHSMOVE ( .NEW FILE_LEN, -WORK-FILE NAME, .FILE_NAME ) ; 

; 6 17 FREE_VM ( .FILE_LEN, .WORK_FILE_NAME ) ; 

3 624 1726 END 

3; 625 1725 2 ELSE 

; 6 g 4 6 FILE_NAME = .WORK_FILE_NAME ; 

: § 3 7 § CHSMOVE ( FC_S_AREA, .FC, .NEW_FC ) ; 

; 630 1730 2 FAB = NEW_FC { FC_FAB) ; 

3 631 1731 2 NAM = NEWTFC [ FCNAM ) ; 

; 6 2 7 3 RAB = NEW-FC { FCTRAB } ; 

; 6 1734 2 FABLFABSB_FNS) = .NEW FILE LEN ; 

; 635 1735 2 FABLFABSL-FNA) = .FILE_NAME ; 

; 6 7 FABCFABSL-NAM) = .NAM 3 

; 6 8 1738 RABCRABSL_FAB) = .FAB ; 

; 640 1740 NAMCNAMSL_RLF) = NEW_FC f FC_RLE } ; 

3 641 174 NAMCNAMSL“ESA] = NEWFC [C FC"ESA ) ; 

3 642 1742 2 NAMCNAMSB-ESS) = NAMSC_MAXRSS ; 


roe 
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10 
COMMA’ Command parser 1$-Se -1984 745: AX-11 Bliss-32 Vv4.0-74 
voe~000 COPY_FC = copy file context area 127800- 138s #7583325 EBACKUP. SRE COMMAND “B58. ree 3 
5B 7 ¢ MOVAW =(R3), STR3_PTR : 
be 57 9A oAF ; 8 RATCHC ‘. Stra, NEW_FILE_LEN, (WORK_FILE_NAME) + 1660 
53 D $f MOVL #3, R3 : 
: A 68: DECL : 
SA C MOVAW =(R3), STR4_PTR : 
ts re il pw 
04 AE 01 9 t3 MOVE #1, STR_FOUND + 1665 
65 og Of INCL 1_PTR : 1666 
p 9 DECL NEW FILE LEN t 1667. 
50 7746 ? 18 NOVA (NEW FIC ghEN? CWORK_FILE_NAMEI, RO 7 1668 | 
59 6 ; 00 ADDL3 #2, STRI- RO : 1670. 
00 BE 6 é 28 SoBe MOVCS RO, (R9)> aSTRI_PTR : 
28 1 00088 7$: BRB ; 166 
5 D3 OO08D 8$: TSTL STR2_PTR : 1672) 
04 AE 4 99 $0091 Sove a STR_FOUND : 1675. 
4 6 80995 INCL  $TR2_PTR + 1676 
57 p 0097 DECL NEW FILE_LEN + 1677 
50 7746 0099 MOV sae FICE_LEN) CWORK_FILE_NAME], RO : 1678 
50 58 g 009D SUBL2 STR2_PTR : 
68 02 AB 50 000A0 MOVCS RO, 2(STR2_PTR), (STR2_PTR) + 1680 
59 11 O00AS BRB + 1672 
5B DS OOOA7 9S: TSTL  $TR3_PTR : 1682 
37 13 000A9 BEQL $ ; 
04 AE 1 90 000aB MOVB #1, STR_FOUND + 1685 
58 06 90 AF INCL  $TR3_PTR + 1686 
57 07 00081 DECL $$ NEW FILE LEN + 1687 
59 7746 9E 00083 MOV oi FICE LEN) CWORK_FILE_NAME], R9 : 1688 
59 58 C 90087 SUBL2  STR3_PTR : 
68 02 AB 59 : 6 OBA MOVCS RO, 2(STR3_PTR), (STR3_PTR) ; 1690 
68 59 5D 8F 3A 000BF Locc §=—«._-«#98,_ -R9,- (STR3_PTR) + 1691 
2 12 900c4 BNEQ 10$ ; 
1 D4 000C6 CLRL sR : 
58 51 09 44 10$: MOVL R1, STR2_PTR : 
BE 13 000CB BEQL «6s 7 + 1694 
68 E 90 000CD MOVB #62, (STR2_PTR) > 1696 
89 11 69009 BR ; 1682 
AD 9002 11$: TSTL  S$TR4_PTR : 169 
27 13 00004 BEQL © 13$ ; 
06 AE 1 90 00006 MOVB #1, STR_FOUND : 1701 
2A 8 ODA INCL  STR4 PTR ; 120¢ 
7 nye DECL NEW FILE_LEN + 170 
59 7746 0D MOV ~(NEW FICE LEN) CWORK_FILE_NAMEJ, R9 : 1704 
59 A OE SUBL2 STR4_PTR F 
6A 02 AA 9 O0E MOVCS RO, 2(STR4 PTR), (STR4_PTR) > 1706 
6A 59 E A QOEA Locets# é- R9, (STR4_PTR) : 1707 
¢ OOE BNEQ 1 3 
1 D4 OOOF CLRL =o ; 
58 1 p OOF2 128:  MOVL RI, STR2_PTR ; | 
94 OOF BEQL > 1710. 
68 5D Hi 9 0 F MOVB #93, (STR2_PTR) : 1712 
— 11 FB BRB > 1698 | 
08 AE 94 00 FD 13$: CLRB CONTINUE > 1714 | 
89 11 00100 14$: BRB $ + 1655 


«_————————_—— 


10 
COMMA Command parser bese -1984 23:45: AX-11 Bliss-32 v4.0-742 Pa 4 
fC = copy e context area -Sep- 353: ACKUP. ND .B32;1 (6) 
youe000 COPY FC © til metas Pat Bet ed yt to Po te 6 ee 2 
SO eS Raa TM det i Tat 
000000006 99 . F 1 CALL Wi GET om : 
3 B 1 MOVL RO. FILE_NAME : | 
56 66 1 MOVCS NEW FILE“LEN, (WORK_FILE_NAME), (FILE_NAME) ; 1722 
6 DD 0011 PUSHL WORR_FILE_NAME 3 17 
OC AC DD 0011 PUSHL LE“LEN : 
000000006 00 f 118 CALLS #2, FREE_VM pet 
58 6 D 4 4 168: MOVL WORK FILE_NAME, FILE_NAME ; 1726, 
6 08 AC p 127 17$:  MOVL NEW Fc, Rb : 1728. 
66 06 BC 0354 ef ot MOVC3 #852, aFC, (R6) : 
OC AE 6 p 1 MOVE R6, FAB : 1730, 
3 0094 C6 9 001 MOVAB 148(R6), NAM > 1731) 
1 50 Ab 9 1 MOVAB 80 (RO) . RAB + 1732) 
52 oc AE 34 C1 0013F ADDL3 #52, FAB, R2 + 1734) 
b 7 90 00144 MOVB. NEW_FILE-LEN, (R2) : 
52 0c ag ef C1 00147 ADDL3 #447 FAB. R2 + 1735) 
6 8 DO 0014C MOVL FILE NAME, (R2) ; | 
52 OC A @8 C1 OO14F ADDL3 #40, "FAB, R2 > 1736 
6 0 DO 00154 MOVL NAM. (R25 : | 
3c. OAT 0c AE 00 00157 MOVL AB, 60(RAB) : 1738) 
10 ao OOFS C6 9E 0015C MOV gia (RO) 16 (NAM) > 1740. 
0c Ad 0154 (€6 9E 00168 MOVAB 340(R6). 12(NAM) + 1741) 
OA a0 01 8€ 0016 MNEGB #1, 10(NAM) : 178 | 
04 Ad 0254 C6 9E 0016C V 596(R6), 4(NAM) : 1743. 
40 Ad o¢ A po 0017 OVL 12(NAM), 64(NAM) > 1244) 
51 8 AO 9A 0017 MOVZBL 56(NAM), R1 + 1745) 
44 AO 40 8041 9E 0017B VAB 964 (NAMS CRI, 68 (NAM) : | 
51 39 AO 9A 00181 MOVZBL 57(NAM), R1 t 1746 
48 A0 44 8041 9E 00185 V O68 (NAMSERI, 72(NAM) ; | 
51 3a AO ODA 00188 MOVZBL 5S8(NAM), R1 : 1747) 
4C AO 48 8041 9E 0018F OVAB 072 (NAMS CRI, 76(NAM) ; 
51 38 =6A0 «(9A 00195 MOVZBL 59(NAM), R1 : 1748) 
50 AO 4C B041 9E 00199 OVAB @76(NAMSCR1), 80(NAM) ; 
51 3¢ = AO so9A 0019F MOVZBL 60(NAM), RI : 1749, 
54 AO 50 8041 9E 001A3 MOVAB @B80(NAMSCR1], 84(NAM) ; 
02 Ad 01 8E 001A9 MNEGB #1, 2(NAM) : 1751) 
08 a0 0 8A OO1AD BICB aug 8 (NAM) : 1753 | 
33 AD 80 BF 8A 00181 BICB2 #128, 51(NAM) > 1754 | 
30 AO D4 00186 CLRL 48 (NAM) 3 1755) 
04 00189 ET : 1759) 
; Routine Size: 442 bytes, Routine Base: CODE + O0F8 


660 


1760 1 


10 
A Command parser 18-se 1984 23:45:21 AX-11 Bliss-32 V4.0-742 Pa 5 
voe-000 INIT_FC : init file context area 14-$ att $7:83:28 EBACKUP. SRE COMMAND .632; 1 ” 3 
; 66 176) ! ZSBITL “INIT_FC = init file context area’ 
; 7 1706 ! ROUTINE INIT_FC ( FC : REF BBLOCK , FILE_LEN, FILE_ADDR ) : NOVALUE = 
; 665 1764 1 S44 
; 066 1765 1! 
3; 8 1008 1 ! FUNCTIONAL DESCRIPTION: 
; 668 1767 1! This routine is used to reinitialize an already existing FC 
; 669 1768 1! for use parsing another file name string. The name from the 
; 670 4 4 1 $ previous file parse is propagated in the related name block 
; a4 1700 : so that the name parsing will be good and sticky. 
: org ire 1 ! INPUT PARAMETERS: 
; 674 17735 1! F - File context block from last parse 
; 675 1774 1! FILE_LEN = Length of file name string 
3 ore 1775 1! FILE_ADDR - Address of file name string 
; 67 iors 1 3 
; 678 1777 1°! IMPLICIT INPUTS: 
; 679 1778 1! NONE 
; 680 1779 1! 
; 681 1780 1 ! OUTPUT PARAMETERS: 
; 68 1781 17! NONE 
; 68 HA 6 1! 
3 684 1783 1 ! IMPLICIT OUTPUTS: 
; 685 1784 1! ‘ : 
; 686 1785 1! FC will be reinitialized and there will be a new related nam 
3; 687 1786 ,: block hanging off the FC's NAM block. 
; 688 1787 1! 
3; 689 1788 1 ! ROUTINE VALUE: 
: 690 1789 1! 
3; 691 1790 1 ! SIDE EFFECTS: 
3; 69 1791 1! LIBSGET_VM errors may be signalled. 
3; +69 ay 1! 
3 694 1793 1 !-- 
3 695 1794 1 
3 696 1795 BEGIN 
3; 697 1796 
; 698 1797 LOCAL 
3; 699 1798 : BBLOCK (8) , ‘ 
; 700 1799 NEW_RNAM : REF BBLOCK , ! Pointer to allocated area 
; 701 1800 RLF NAME : REF BBLOCK , ! Pointer to FNS buffer 
3 FO 1801 FILE NAME : REF BBLOCK , ! Pointer to FNA buffer 
3; 70 1306 RLF _CEN : BYTE ! File name Length holder 
> 704 180 FAB : REF BBLOCK , 
3; 705 1804 NAM : REF BBLOCK ; 
3; 706 1805 
3; 707 1308 
3; 708 180 FAB = FC f FC_FAB } 3 
: 709 1808 NAM = FC C FC_NAM J ; 
; 710 1809 
3; 7ii 1810 } 
3 at) 1811 ! Get memory for the new FNS 
Tm 1 \ : 
3; «6714 181 FILE NAME = GET_VM ( .FILE_LEN ) ; 
: oi? : \3 CHSMOVE ( -FILE_LEN, .FILE_ADDR, .FILE_NAME ) ; 
: F193 HE 
; 718 181 ! 


10 
COMMA Command parser 18-5 -1984 23:45: AX-11 Bliss-32 v4.0-742 Pa 6 
voe-000 INIT_FC init file context area 12230571984 $7:83:23 EBAcKUP’SRe COMMAND .832; 1 ” 3 
; 719 181 ' Allocate ry for the new related NAM block, init it 
3 f Y ! 18 : and Link it into the chain. 
; f § : 1 NEW_RNAM = GET_VM (NAMSC_BLN) ; 
; 7246 1 : RLF _LEN = .FABCFABSB_FNS) ; 
: 725 1824 2 RLF-NAME = GET_VM ( TRLF_LEN ) ; 
; g § i 5 @ CHSMOVE ( .RLFILEN, .FABCFABSL_FNAJ, .RLF_NAME ) ; 
2) FF 3 P 1 5 SNAM_INIT 
. *F P 1828 RAM = .NEW_RNAM, 
; 730 P 1829 RLF = .NAMCNAMSL_RLFJ , 
3 731 P 1830 RSS = .RLF_LEN , 
c- FF § P 1 H RSA = .RLF_NAME 
3; f 1 ; »: 
; £36 i 33 NEW_RNAMCNAMSB_RSLJ = .RLF_LEN ; 
| 136 1838 NAMCNAMSL_RLF) = .NEW_RNAM ; 
; 1836 
; 738 1837 ' 
; 739 1838 : Now give up the memory that the old FNA used and get a new 
3 me HF H hunk of the correct length. .- 
; rae 1841 2 FREE_VM ( .FABLFABSB_FNS), .FABLFABSL_FNA] ) ; 
; 74 Hb 9 
3 744 184 § 
; 745 1844 ! Now init the FAB 
; 746 1845 : 
3; 747 Pp Hr SFAB_INIT( 
3; 748 P 184 FAB = .FAB , 
3 749 P 1848 FNA = .FILE_NAME, 
3; 750 P 1849 FNS = .FILE-LEN, 
3 «(751 1850 NAM = .NAM J; 
; Pg 1851 
; 1326 
3 754 185 RETURN ; 
3; 755 1854 
3; 756 1855 END; 
OFFC 00000 INIT_FC:.WORD Save R2.R3,R4,R5,R6,R7,R8,R9,R1I0,R11 : 1762 
08 C 444 SUBL2 #8, SP 3 
5 04 AC 00 0000 MOVL FC, FAB ; 1807. 
58 04 AC 00000094 8F C1 00009 ADDL3 #148, FC, NAM : 1808 | 
08 AC OD Se PUSHL tN LEN : 181 
we 5 00 oie Rout: RO’ PILE NAME 
6B 0c C 08 AC ; 1f MOVC3 PALE _LEN, @FILE_ADDR, (FILE_NAME) 3; 181 
E 60 8F 9A 00025 MOVZBL #96, 7-(SP) : 182 
000000006 9 of 9 cats i. AA : 
34 «OA? 5 00 3 MOVB Tate RLF_LEN : 1833 
3 59 9A 000 MOVZBL RLF LEN. - (SP) ; 1824 
000000006 0 01 FB OOO3A CALLS #1,°GET_VM 3 


11 
COMMAND Command parser 18. -$ep-1984 23:45:21 AX-11 Bliss-32 V4.0-742 P 7 
: > $3:23:2 c we 5 


v04-000 INIT_FC = init file context area 14-Sep-1984 48 BACKUP. SRCJCOMMAND .832; 1 
A 0 00041 MOVL. RO, RLF_NAME : 
25 35 BR apd MOVZBL RLF_LEN; + 1825 
6A 2c «B? 0 28 047 MOVC3  RO,~@44(FAB), (RLF_NAME) : 
0060 &F 00 6E 00 ¢ S046 MOVCS #0, (SP), #0, #96,~ (NEW_RNAM) + 1832 
66 6002 F B0 0054 MOVW #24578, (NEW_RNAM) : 
02 A6 9 0059 MOVB  RLF_LEN, 2(NEW RNAM) : 
04 Ab A DO 00050 MOVL FNAME, 4(NEQ_RNAM) : | 
if Ab 10 A8 DO 00061 MOVL 16(RAM), 16(NEW"RNAM) : | 
03 Ab 59 90 00066 MOVB RLF_LEN, 3(NEW_RNAM) : 1833, 
10 As 56 DO O006A MOVL EW"RNAM, 16(N + 1835 
2C A7 pp S006 PUSHL  44(FAB) + 1841) 
4 Az? 9A 00071 MOVZBL 32 FAB), =(SP) : | 
000000006 00 02 FB 00075 CALLS #2, FREE_VM : 
0050 «BF 09 2¢ 9907¢ MOVCS #0, (SP)> #0, #80, (FAB) ; 1850. 
67 5003 8F BO 00084 MOVW #20483, (FAB) : 
16 AZ 02 90 00089 MOVB = #2, ¢2 (FAB) ; 
1F AZ 02 90 0008 MOVB #2, 31(FAB) : 
28 «A? 58 DO 00091 MOVL NAM, 40(FAB) : 
eC A7 5B 00 00095 MOVL FILE_NAME, 44(FAB) : 
a 08 AC 90 00099 MOVB FILETLEN, 52(FAB) F 
04 0009E T + 1855 


; Routine Size: 159 bytes, Routine Base: CODE + 02B2 


3; 57 1856 1 


r 


-———_—_ - ———— SC —_— - — ————__— —— — — 


kK AND Command parser 15- 


11 

f $ep-1984 23:45:21 AX-11 Sliss-32 V4.0-742 Page 28 

-000 PARSE _EXC_SEL = parse EXCLUDE or SELECT qualifi 122868188 $7 :63:28 BS 
SELE 

ESC) 


BACKUP .SRC JCO4MAND .B32; 1 


i 
i: 759 1857 1 XSBITL "PARSE_EXC_SEL = parse EXCLUDE or SELECT quel ti ter® 
: £op : 28 ! ROUTINE PARSE_EXC_SEL(SRC,QUAL_DESC,ESL_DESC): NOVALUE= 
3; 6 1860 1 !+4¢ 
s 6 190) 1! 
: 764 1 6¢ 1 ! FUNCTIONAL DESCRIPTION: 
s 765 1865 1! This routine parses and checks the value of an EXCLUDE or SELECT 
; 766 1864 1! qualifier. 
3; 767 1865 1! 
; 768 1866 1 ! INPUT PARAMETERS: 
; 769 1867 1! R - Pointer to the string to he parsed (PL/I varying). 
: 44 1308 } QUAL _DESC - Descriptor for the qualifier name. 
3; 77 1890 1 ! IMPLICIT INPUTS: 
RB as 1871 1! NONE 
: 774 1376 1! 
s 775 187 1 ! OUTPUT PARAMETERS: 
; 776 1874 1! ESL_DESC - Rewritten with the expanded string resulting 
. Pre 1875 1! from the SPARSE operation. 
: 778 1876 1! 
: 779 1877 1°! IMPLICIT OUTPUTS: 
; 780 1878 1! NONE 
: 781 1879 1! 
; 78 1880 1 ! ROUTINE VALUE: 
: 78 193) 1! NONE 
; 784 18 ¢ 1! 
; 785 1883 1 ! SIDE EFFECTS: 
3; 786 1884 1! NONE 
; 787 1885 1! 
; 788 1886 1 !-- 
; 789 1887 1 
; 790 1888 BEGIN 
: 791 1889 MAP - 
3; 792 1890 SRC: REF BBLOCK, : Pointer to PL/I varying string 
; 793 1891 ESL_DESC: REF BBLOCK; ! Pointer to descriptor 
3; 794 1336 LOCAL 
3; 795 189 FAB: BBLOCKCFABSC_BLN), ' Local FAB 
; 7% 1894 § NAM: BBLOCKCNAM$C_BLNJ ' Local NAM block 
> 797 1895 ESA: BBLOCKCNAMSC_MAXRSS]; | Local expanded string 
; 798 1896 
; 799 1897 . 
3 300 + 444 Initialize the local RMS structures we use to do this SPARSE. 
: P19 $F AB_INIT(FAB=F AB 
; $08 P 190% BNA=UPLIT BYTE('[000000...J*.*;#"), 
3 aoe P 1306 DNS=ZCHARCOUNT(*(000000...J*.*;*'), 
3 5 P 190 FNA=SRCCVAR_BODY 
3 806 P 1904 FNS=. SRCCVAR_LENGTH), 
; 807 1905 NAM=NAM) ; 
; 808 Pp 1906 SNAM_INIT(NAM=NAM, 
3; 809 P 190 ESA=ESA 
; 810 1908 ESS=NAMSC_MAXRSS); 
: 11 1909 
: \¢ 1910 
: 1 1911 ! Execute the SPARSE. 
3 14 I3I¢ 
|! 15 191 SPARSE (F AB=F AB); 
| 


ca 


1 


1 
1$-5¢ 1984 23:45:21 
E_EXC_SEL = parse EXCLUDE or SELECT qualifi 12280571384 $7 :63i25 


If an error we are not willing to accept occurs, signal 


NAMCNAMSB_ESLI; 


TYPE 


CSK"CLASS“S: 


00 


00 


! Do another SPARSE on the null string. This will delete 


~EXTRN 

OOFC 00000 PARSE_EXC_SEL: 
GORD 

9E 00002 MOVAB 


MOV 


COMMAND Command parser 
v04-000 PARS 
; 81 1914 
oe 
; 15 1917 
; 0 1318 
3 1 191 -NAMCNAM$B_ESL] EQL 0 OR 
: ; 19 9 (.NAMCNAMSC_FNB) AND 
3; & 1921 4 (NAMSM_EXP_DEV OR 
3 Ss 19 ; 4 NAMSM_ OR 
; 825 19 NAMSM_QUOTED)) NEG 0 
; 826 1924 
3 : 7 1? 5 
; H ; 13 ; ! Initiali tput d ipt 
3 ! Initialize output descriptor. 
: 831 1999 5 i 
3 S36 1930 ESL_DESCCDSCSW_LENGTH) = , 
3 HY 1931 ESL_DESCCDSCS$B_DTYPE) = DSC$K_D 
; 834 1336 ESL_DESCCDSC$B_CLASS) = DS 
; 835 193 
: 836 1934 
3 tH 132 : Allocate memory to hold string. 
3 a6 1937 g ESL_DESCCDSCSA_POINTER] = GET_VM(.NAMCNAMSB_ESLJ); 
F Bd Soe Se 8 foc tng vers prdeg aces 
3 ! Copy the expanded string to J ‘ 
3; 843 1941 ‘ ° 
: 844 1308 CHSMOVE ( 
3; 845 194 .NAMCNAM$B_ESLJ, 
; 846 1944 SA, 
3 847 1945 -ESL_DESCCDSCSA_POINTER)); 
; 848 1946 
; 849 1947 
; 850 1948 
> 851 1949 ! context, if any. 
: 852 1950 ‘ 
3; 853 1951 tas ts shed = 0; 
: 854 1936 FABCFABSB DNS] = 0; 
: 855 195 SPARSE (FAB=F AB); 
; 856 1954 1 END; 
38 2A 2—€ 2A SD 2E 2E 2€ 30 30 30 30 30 30 SB 0033) P.AAE: .ASCII 
2A 00360 
57 000000006 
5E FESO 
0050 =—s« BF 00 6E 
BO AD 50p3 
C6 AD 


i 


2t 3 ROves 
0 


Dd MOVB 


Welt 


it. 


the internai RMS 


\C000000...J*.*;#\ 


SYSSPARSE 


=32 V4.0-742 
COMMAND .B32; 1 


THEN 
SIGNAL (BACKUP$_INVQUAVAL, 3, .SRCCVAR_LENGTH], SRCCVAR_BODY], .QUAL_DESC); 


roe 


; Routine Size: 


; 857 


Command 
PARSE _EX 


1955 


181 bytes, 


1 


" 
‘ 
: 
E4 
ES 


00060080 


000000006 


02 


000000006 
04 


Routine Base: 


67 


rser 
Po SEL - parse EXCLUDE or SELECT 


quali 


02 90 
FF50 B #5 
C 
6 4 
8? AF 6 
hi 
foe ) 
600 F B0 
1 8E 
6— 9E 
BO AD 99F 
01 FB 
FF5SB CD 9A 
OA 1 
84 AD D 
18 #1 
08 aC OD 
56 go 
06 BC 3C 
Es OD 
00000000G 8F OD 
05 FB 
0c ac 00 
53 BO 
O10E 8F B80 
53 DD 
2 FB 
0 00 
53 28 
E46 AD B84 
BO AD 9F 
01 FB 
04 
CODE + 0361 


—e 

ven 
ee 

nue 


> 


i 14 


Sooo 
we 


Coooooo 
NEM OWOSSO OT9MO 


SN NA AAA MINE 


SOOQoOQooooooooooooooooooo 
SOoooooooooooooooooooosoo 


i i 
ovo 


—_ 
tad 


—— 
woo 


Be 71:53:48 — EBAckuP*SneSconmAnd 053: 1 


#2, SRMS_PTR+31 
NAM, SRMS_PTR*4 
a @ R 

R6, SRMS PTR+44 

P.AAE, SRMS_PTR+48 

aSRC, SRMS_PTR+52 

#16, SRMS_PTR+5 

#0, (SP),"#0, #96, SRMS_PTR 


#24578, SRMS_PTR 
#1, SRMS_PTRT10 
ESA, $RMS_PTR+12 


#1, SYSSPARSE 
NAM+11, R3 


0 


1 
NAM+52, #393344 
QUAL _DESC 

a RC, (SP) 
#BACKUPS_INVQUAVAL 
#5, LIBSSIGNAL 
ESL_DESC, 

R3,~(R2) 

#270, 2(R2) 

R 

#1, GET_VM 

RO. 4(R2) 

RS ESA. @4(R2) 


AB+52 


FAB 
#1, SYSSPARSE 


re 


. 


j F 11 
COMMA Command parser 15-Sep-1984 23:45: AX-11 Bliss-32 V4.0-742 
yose000 EXPAND _SEARCH_LIST 12-8 08-19be $7383 32 EBACKUPSRe COMMAND .832;1 
; 859 19 § 1 ZSBTTL “EXPAND_SEARCH_LIST ° 
; 860 19 1 ROUTINE EXPAND _SEARCH_LIST ( FC. : REF BBLOCK, 
3 1 1328 : PTR : REF BBLOCK, LAST_PTR : REF BBLOCK ) = 
3 bes 1960 1 !+4¢ 
; 864 1961 1! 
; 865 1306 1 ! FUNCTIONAL DESCRIPTION: 
$ ¥¢ 1965 1! This routine is used to eupend a search List into individual 
3; 86 1964 1! directory names. The block pointed to by PTR will be removed 
; 868 1965 1! from the Linked List and replaced by n blocks, one each for 
; 869 1306 1! each value of the search List. 
3 B70 1967 1! 
3; 871 1298 1 ! INPUT PARAMETERS: 
; 163 1969 1! FC - address of file context block used for SPARSE 
: 7 1970 1! PTR - address of input qualifier context block 
3 thy 1b 44 : LAST_PTR - address of last block (previous block in List) 
s 876 1398 1 ! IMPLICIT INPUTS: 
: 877 1974 1! NONE 
; 878 1975 1! 
; 879 1378 1 ! OUTPUT PARAMETERS: 
; 880 1977 1! NONE 
3; 881 1978 1! 
3 eee 1979 1°! IMPLICIT OUTPUTS: ‘ 
; 88 1980 1! f a search List was found then the forward getnter will be modified 
3 aae 13S : to point to the new elements and the old .PTR will be deallocated. 
; 886 1988 1! ROUTINE VALUE: 
; 887 1984 1! If a search List was found the address of the new input qualifier 
; 888 1985 1! block else .PTR 
; 889 1986 1! 
; 890 1987 1 ! SIDE EFFECTS: 
; 891 1988 1! NONE 
3; 1989 1! 
; 89 1990 1 !<- 
3; 894 1991 1 
; 895 1936 BEGIN 
; 896 199 
3; 897 1994 LOCAL 
: 898 1995 AB REF BBLOCK , 
; 899 1996 REF BBLOCK , 
: 900 1997 WORK_FC REF BBLOCK , 
; 901 1998 NEW_FAB REF BBLOCK , 
; 90 1999 NEW REF BBLOCK , 
; 90 000 LAST REF BBLOCK , 
; 904 001 NEW_LIST REF BBLOCK , 
: 905 it NEW ITEM REF BBLOCK , 
3 206 00 OPER_COUNT : LONG , 
; 90 004 CCSAV : LONG , 
; 908 005 STATUS : LONG ; 
: 909 
; 910 LAST =0; 
: 911 3 WORK_FC = .FC 
; 4 90 FAB = WORK_FC frc fag) ; 
; 91 10 2 NAM = WORK"FC [CFC"NAM) ; 
; 914 out OPEN_COUNT~= .CHK7FLAGSCCHK_FLAGS_COUNT) ; 


“aaa tape eA 


11 
Fs Se he UEhecte GESE:2) MeL PLdetedeedks ad? race 


1 : 
12 : Parse the string and if it is not a search List then return 
1 NAMENAMSY SLPARSE] = 1 ; 
NAM 
4 
4 
4 


— J 


WO CONOUESWN “OO DONO 


NAMSV-NOCONCEAL) = | ; 
WCCSAV = [NAMCNAM J; 


> 


WAMCNAMSL_WCC) = 0 | 
STATUS = SPARSE ( FAB = .FAB ) ; 
IF NOT ( STATUS AND 

ei -NAMCNAMS$V_SEARCH_LIST] ) 


BEGIN 
Clean up the work FC 


NAMCNAMSV_SVCTX] 
NAMCNAMSV SLPARS 


iw 


—"OOONOV EW —O0Oe 


TRO 


oar 


DODOODODOODOOODOOODODOODOODOD0O0N0O 


aun 


: 937 

3; Fae 0 ! 

; 939 O36 ! We have a search List so loop through all values 
: 940 03 : 

> 941 soe WHILE .STATUS DO 

3 ot 039 BEGIN 

; 94 Spee 

3 6944 041 : 

3; 945 944 ! Allocate a new block and insert it in 

; 946 04 ! the new List 

3 947 044 : 

3; 948 045 NEW_ITEM = GET_ZERO_VM ( QUAL_S_INPU ) ; 

3 949 046 IF .LAST E 

; 950 047 THEN NEW_LIST = .NEW_ITEM 

; 951 048 ELSE 

; 326 049 BEGIN 

; 050 LAST CQUAL_NEXT] = .NEW Ay 3 

3 Bae $02) CHK FLAGS TCHK_FLAGS_COONT) = .CHK_FLAGS CCHK_FLAGS_COUNT] + 1 ; 
; 956 088 LAST = .NEW_ITEM ; 

3; 957 054 

: $35 oe2 Ff he d 

: 338 036 ; opy over the data 

: Gee g NEBTIPEMOUMbarMPA Chey Fenty EnaNMPES,” 
; 368 060 . “NAMCRAMS$B_ESLI, NAMCNARSL. ESA 5; 

; 964 061 

3; 965 Beg : 

; age et } Reparse the copy 

; 968 065 NEW_FAB = BBLOCK (.NEW_ITEM are ry wht be FC_FAB | : 
; 38) 808 NEW-NAM = BBLOCK C.NEW-ITEMCQUAL-PARA_FCJ, FC_NAM J ; 
> 971 068 4 IF NOT SPARSE (FAB=.NEW_FAB) 

: 972 069 3 TEN 


Command parser -Sep-19 7465: AX-11 Bliss-32 V4.0-742 P 3 

EXPAND. SEARCH. LIST 13-$ep-196 17:93:23 UaXtkUe See Scommand wsoe1 aoe 33 
; 973 i FILE_ERROR(BACKUPS_PARSE, .NEW_FAB, .NEW_FABCFABSL_STS], .NEW_FABLFABSL_STVJ); 
: 975 
: HA 7 ; Check the validity of the resultant spec. 
: 97 ie CHECK_F11 ( NEW NAM, FALSE ) 
3 338 7 CHECK-COMMON ( .REW_FAB, FALSE’) ; 
: Be $9 ; 
3 38 079 i Set up the string descripicrse in the new List element 
; 984 0 1 BUILD QUAL_DESC ( .NEWLITEM, .NEW_NAM ) ; 
: Oke O88 
: 337 Bae Get the next element of the search List 
: 989 086 STATUS = SPARSE ( FAB = .FAB) ; 
: 990 08 
: 991 088 END ; 
Bo Be 
; Boe 34 ; Insert the new List where the old element came from 
: 996 $98 NEW_ITEM CQUAL_NEXT] = .PTR ease : 
; 99 094 2 IF “OPEN. COUNT “EOL 
: 998 095 THEN” .LAS = .NEW_L 
: .999 84 ELSE LAST_ "OTR CQUAL ENEXTS. = .NEW_LIST ; 
: 1000 098 5: 
; 1008 +4 ; j Clean up the work FC 
> 1004 101 2 NAMCNAMSV_SVCTX] = 0 
; 1005 108 NAM NAMSV~SLPARSE] = 6 
> 1006 10 NAMLNAMSV—NOC CEALJ = 6; 
: 1007 104 2 NAMCNAMSL“WCC) = .WCCSAV ; 
cee 
: 1019 109 Now clean up the old item 
; 1018 199 inp = BBL OCK C PTREQUAL gBARA Ae FC_FAB ad 
> 101 110 2 FREE_VM ( .FABLFAB “FABLFABSC FNA} $ ; 
: 1014 111. 2 FREE-VM ( FC_S CAREAS “PTAC QUAL _PARA_FC) ) 
: 15 18 FREE-VM ( QUAL~S_INPU, 
; 1919 114 2 RETURN .NEW_ITEM ; 
; 1018 115 
: 1019 116 1 END; 

FFC 00000 EXPAND_SEARCH List: 
me . . WORD” Saye R2 R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 ; 1957 
5 ce 6 i CLRL vast : 2007. 
04 AC DO 00007 MOVL FC, WORK_FC ; 2008 


Fifa lta SR 


— 


Pear 


——— 
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04 


000000006 


OE 35 
03 


000000006 


08 
000000006 
04 


FC4C 
58 04 
000000006 


000000006 
0000Vv 


0000v 
0000v 
000000006 


80 


00000000' 
0354 


Res 


04 
00000094 


000000006 


0104 


o 
So 


oOo 
oO 
—FU™MVONMA OO" BDOMeWDo"wno—~uW 


Povlr > > 
Om FMVS PMUUWO 


wo 


NOOWyS 
rs 


OV MNS MOM & HS 


MOMODOUNOW 


14.2),-1 
1a-Sep-1 


oOo O0OMooOoU 
fOomom yma 


wo wo 
WMOWO—Co-"O F& POUOUODO 


DOOOOCSCOOOCCOOOCOOCOoOoOSoOo 


ra >~ SO OOO UD 


aS 2323-9353 Comma 
Ss 


Wooeo— 


18: 


2s: 
3$: 


4$: 
5$: 


be §7:53:28 


ACKUP.SRC 
FAB 


NAM 
AGS, OPEN_COUNT 
R6 


1, SYS 

Pare. 4 

3 YS iNAM. 2$ 
128, 3(R5) 

#48, (R6) 

wecSav, (RS) 

STATUS. 3$ 

#40 

#1, GET_ZERO_VM 

RO, NEW-ITEM 

LAST 

NEWITEM, NEW_LIST 

NEW_ITEM, (LAST) 

NEW_ITEM, LAST 

nth -(§P) 

#1, GET_VM 

R 4(NEW_ITEM) 

11(NAM), =(SP) 

4(NEW_ ITEM) 

WORK FC 

#4, COPY_FC 

4(NEW_ITEM), NEW FAB 

#4 (NEWLITEMY, NEW_NAM 

#1, “SYSSPARSE 

B(NEW FAB), =(SP) 

NEW 

#BACKUPS_PARSE 

#4, FILE-ERROR 

-(§P) 


NEW_NAM 
#2, CHECK_F11 
-(§p) 


#2, BUILD QUAL_DESC 
FAB a 


o— 
> 
“ 
—— 
> 
— 


yarn Oi legen V4.0-742 
8 COMMAND .832; 1 


WAWnononyd 


4 Cooooooo 


™ 


commun fonmand.pareer yB-eo-1984 25:45:2) yAtct! OL in4-52 v4. 0-742. 


FF61 31 OO0E9 BRW as. 
33 8 ag D EC 7$: MOVL 
6 63 D F MOVL CRSS, wl evs 
0c Bf 08 AE F MOVL NEW Ses SLAST. PTR 
A F BA F orcas # oie: as 
6 0 BA 000F BICB (R6 
£ D9 1 uecgav, tRS) 
4 A3 00 001 MOV 4(R3), FAB 
Cc h(OA po 1 PUSHL  44(F AB) 
re A? 9A OO10A MOV ZBL 32 (FAB) (SP) 
000000006 0 02 FB 001 CALLS #2, FREE_V 
94 AS 0D 0011 PUSHL 4183) 
43 0354 BF 3¢ 0011 MOVZWL #852, -(SP) 
000000006 0 FB 00110 CALLS ‘ » FREE_VM 
DD 00124 PUSHL 
DD 001 6 PUSHL #40 
000000006 00 FB 01 CALLS #2, FREE_VM 
0 v0 4) F HOVE NEW_ITEM> RC 
50 D4 001 : 8$ CLRL = RO 
04 00135 RET 


; Routine Size: 310 bytes, Routine Base: CODE + 0416 


: 1020 ai 1 
3 1021 118 «1 


PVSVIVSVII EB BS BS BS BS ANNI IAI IInnonononononunun— orm 


MEUM SS OONAUE WN (OOD NOU EWN —"OOONOUESWN-00 © 
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RECK SAU e check save set input and output Lis 15-Sep-1984 #9:83:23 YOACKUP’ SREICORMAND 85341 Page 43$ 


ZSBITL "CHECK_SAV = check save set input and output Lists’ 
ROUTINE CHECK SAV( NAM : REF BBLOCK, OUTPUT_SIDE ): NOVALUE= 


tee 


1 
FUNCTIONAL DESCRIPTION: 
This routine validitys the save set input and output Lists. 


INPUT PARAMETERS: 
- address of NAM 
OUTPUT_SIDE - True if output, false if input. 


IMPLICIT INPUTS: 
NONE 


rojo fool alelolololololol~) 
VFN —“OOONOUNEw 


oooo 
w 


DWONAVESWN “SO OONOUS WN 00M 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
Messages may be signalled if errors are detected. 


eee ee ee ee ee 


IF .0 
cee (IF .RAMCNAMSV_WILDCARD) THEN SIGNAL (BACKUPS$_SAVSETNAM) ; ) 


ae a ed ed ed ed ed wd 


RRARRRRARARERERER ERE 


INPUT Revo. = FALSE; 
V_WILBCARD 
LXGSCINPUT WILDSAVE) = TRUE 


Be Be Se Ge Se Be Bo Be Se Se Se Se Fe Se Fe Se Gs Ge Se Ge Se Ge Ge Ge Fe Se Ge Ge Ge Ge Ge Gs Se Ge Ge Fe Ge Ge Se Se Gs Se Ge Ge Se Se Se Se Se Ge Se Se Ss Se Ge Geese 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
UTPUT SIDE 
4 


PIPIPININIPIMANIAININININININININONIPUNININPY NINN NINININININININPINIPIPININIPIPIPIPOPIPUPINIPUPIPIPITUPINIPINIPINYD —- OO 


ee ee ee cee ee ee ee ce a a a a a a ce ee a ce ee ee ee ee el ee el el el ce a el ee ee ee el ee ee el el el ee 


1 
1 
060 156 a 
061 157 _FLAGSCINPUT_WILDSAVE) FALSE; 
O96 158 
06 159 
064 160 IF 
065 161 BEGIN 
066 166 IF 
06 16 (. NAMCNAMSL_FNB) AND 
068 164 (NAMSM_RODE OR NAMSM_QUOTED OR 
069 165 NAMSM_EXP_DIR OR NAMSM_EXP_NAME OR 
970 166 NAMSM_EXP"TYPE OR NAMSA_EXP_VER)) NEQ 0 
343 198 as -CHK_FLAGSCCHK_FLAGS_COUNT) NEQ 1 ! non-null must be first 
074 190 -CHK_FLAGSCCHK_FLAGS_COUNT] EQL 1 AND .OUTPUT_SIDE 
075 171 ' null must not be first output 
o76 76 END 
07 17 THEN ng 
343 1 SIGNAL (BACKUP$_SAVSETNAM); ! save set name must be in first spec 


11 
ommand 15-Sep-1984 $3:63:0) et Bliss-32 V4.0-742 Poge ds 


arser 
ECK. SAV = check save set input and output Lis 14-Sep-19 BACKUP. SRC COMMAND .832;1 


¢ ¢ 
¢ 
3 1 178 
: 1081 17 IF .CHK _FLAGSCCHK_FLAGS_F11) 
; 19 ¢ 178 THEN SIGNAL (BACKUPS_INCDEVLIS); ! inconsistent devices in List 
:1 180 
: 1085 181 IF .OUTPUT_SIDE 
; 1982 1 ¢ THEN ng 
: 1087 1 BEGIN 
PY \R8 1 IF .QUALCQUAL_ISAV) 
+ 1089 185 THEN SIGNAL (BACKUP$_ONEF11DEV); ! one F11 device 
; 1090 186 IF .QUALCQUAL COMP) 
: 1091 187 THEN SIGNAL (BACKUP$_CMPOUTF11); ! /COMPARE requires F11 output 
5 1938 189 
3 1094 190 RETURN ; 
: 1095 191 
+ 1096 192 1 END; 
007C 00000 CHECK_SAV: 
56 000000006 8F 00 00002 MOVL  #BACKUPS SAVSETNAM, R6 : | 
55 90900000 EF 9E 00009 MOVAB C GS, R5 ; | 
54 00000000° FF 9E 00019 MOVAB INPOT FLAGS, R4 ; 
53 000000006 60 9E 0001 MOVAB LIBSSIGNAL, R3 ; | 
52 04 AC 00 O01 MOVL NAM, R2 + 2151. 
08 08 aC E 002 BLBC QUTBUT SIDE, 1$ : 2150. 
19 A2 €9 00026 BLBC (R2)> 3$ : 2151) 
56 DD O002A PUSHL R6 : 
63 01 FB 0002c CALLS #1, LIBSSIGNAL ; 
12 11 QOO2F BRB ; 315 
64 80 8F 8A 00031 1$ BICB2 #128, INPUT_FLAGS > 215 
06 35 A2 9 0035 BLBC 53(R2), + 215 
64 40 «8F 688 00039 BISB2 #64, INPUT_FLAGS > 215 
04 11 0003D BRB 3 
64 40 8F 8A 0003F as: BICB2 #64, INPUT FLAGS + 215 
00060047 8F 34 Ae D3 043 $: BITL  52(R2), #393287 + 216 
07 13 00048 BEQL ; 
01 65 91 00040 CMPB  CHK_FLAGS, #1 > 2168. 
10 13 0005 BEQL «=s«6$ F | 
0 11 0005 BRB 5$ ; 
01 5 91 00054 4$ CMPB  - CHK_FLAGS, #1 + 2170 
09 lg 00057 BNEQ $ : 
05 08 ac €9 00059 BLBC OUTPUT_SIDE, 6$ ; 
56 DD 00050 5$ PUSHL & + 2174 | 
63 01 FB 005F CALLS #1, LIBSSIGNA F | 
09 01 AS t O62 6$: BLBC CHK _FLAGS+1 > 2177 | 
000000006 af D 06 PUSHL #BACKUPS INCDEVLIS : 2178. 
63 1 FB 6C CALLS #1, LIBS ; | 
1E 08 aC E O06 7$ LBC output SIDE, 9$ > 2181. 
09 FFG? C4 05 €1 00073 BBC r QUAL + > 2184. 
000000006 af DD 0079 PUSHL #BACKUP$_ONEF11DEV > 2185 | 
63 1 Fe 007F CALLS #1, L1BSSIGNAL ; 
FF40 C4 95 00082 8S: TSTB = QUAL* : 2186. 


voe-000 fneck sages ° check save set input and output Lis if: — iE $3; a} YaXcKuP’ SReTCOMMAND 055801 Page 8 


18 8 $6 BGEQ A : 
000000006 8F ODD PUSHL #BACKUPS$ CMPOUTF11 3 2187) 
63 4 0 CALLS #1, LIBSSIGNAL : 

04 00091 9$: RET : 2192) 


; Routine Size: 146 bytes, Routine Base: CODE + 054C 


; 1097 2193 +1 


eS 


aS is 
ESF 


oo 


NOME WN OS ODNOUE WN “OO OODNOUSWWN 40.00 


WANA ANA POPU PININUNONINIDY SS 2 SO we 


a 


ROAR un—oow 


i es a ee a ee a De ee ed ee ee ed ed ed ore ee el ee ed ee ce ce ce cl el ee ee ee ee el eee el el ed ed 


a ee ec eB ce ce ce a ee ee ee a ee ce ee ae ce ee ee ed ed ee ed ed 


DPA ES BS EEE EEE 


MEW —OO 


nd 1B-Sep-19 4 7793:41 ely Bliss-32 V4.0-742 


perser 
11 = check F11 format 14-Sep-1984 11: 8 BACKUP .SRCJCOMMAND.832;1 


ZSBITL *CHECK_F11 = check F11 format’ 
ROUTINE CHECK_F11( NAM : REF BBLOCK, OUTPUT_SIDE ): NOVALUE= 


a 
Ke 


14 


' FUNCTIONAL DESCRIPTION: 
: This routine validity checks files 11 input and output Lists 


INPUT PARAMETERS: 


> ss 


=x 
REURNISSELSSE AE 


- address of NAM 

OUTPUT_SIDE - True if output, false if input. 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
Messages may be signalled if errors are detected. 


NS dt et ot od tt OOO 


BEGIN 
IF .QUALCQUAL_PHYS) 
THEN 


Nononononoroporornony» 


POPOIPONIPINININPINOPOMOPINONOPo No No nononofnony» 


WE BBE EE E& ENA MNI I I III SUPNPonononony 


IF .CHK FLAGSCCAK_FLAGS_COONT) GTR 1 

THEN SIGNAL (BACKUPS_ONEPHYDEV); ! one /PHYSICAL device 
IF (.NAMCNAMSL_FNB) AND 

(NAMSM_EXP-DIR OR NAMSM_EXP_NAME OR 

NAMSM_EXP” TYPE OR NAMSAM_EXP VER)) NEQ 0 

THEN SIGNAC(BACKUPS$_PHYFILSPE); ! bad /PHYSICAL spec 


~QUALCQUAL_IMAG] OR .COM_FLAGSCCOM_STANDALONE) 
BEGIN 
IF NOT . COM_FLAGSCCOM_STANDALONE) 


wf 


ND 
IF 
E 


HK_FLAGS C CHK FLAGS SRCH_LIST ] = 0 ; ! No search Lists for image 
HK™FLAGSCCHK_FCAGS COUNT]~GTR 1 AND NOT .OUTPUT SIDE AND NOT .CO _FLAGSCCOM_STANDALONE J 
HER SIGNAL (BACKUPS"ONEIMGDEV); ! one /IMAGE device 
IF Poor es ee | AND 

(NAMSM_EXP"DIR OR NAMSM_EXP_NAME OR 

NAMSM_EXP” TYPE OR NAMSA_EXP VER)) NEQ 0 
- THEN STGNAC(BACKUPS_IMGFILSPE); ! bad /IMAGE spec 


E 
ELSE IF .QUALCOUAL_ INCR] 


F 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

j 

1 

1 

1 

: 
BEGIN 
CHK FLAGS C CHK _FLAGS_SRCH LIST ] = 0 ; ! No search lists for physical 
4 

| LS 
HEN 


SOONG NEW 0 OONAUE WN $C ODONAUE WN O OODNOUS WN 0 OO 


Page 


39 
(11) 


12 
nd 18. -Sep-1984 1 AX-11 Bliss- 4.0-74 
ep 138% $3: $3: 4 BL $$ 32 V4.0-742 Page 40) 


a. ~ check F1l format 14-Sep- BACKUP. SRC] COMMAND .B832;1 (11) 


<o 
a = 
oF 
oz 
og 
oo 


BEGIN 
IF (.NAMCNAMSL_ pra fe 
(NAMSM 


IF .CHK_FLAGSCCHK_FLAGS_ SAV] 
THEN SIGNAL(BACKUPS_INCDEVLIS); ! inconsistent devices in List 


MIMPoPororororfornnrny 


Dabs ein adeeb ae ene mS 


=S 
—OVODOnNOuU fw 


NAVE WN —OOOND 


Ae -OUTPUT_SIDE 
"BEGIN 


» CHK_FLAGSCCHK_FLAGS_COUNT] GTR 1 AND 
NOT TQUALCQUAL "I 


DONAOUES WN —OVOONOULSWNS O28 


A ND 
et -COM_ FLAGSECOM. STANDALONE J 
NS IGNAL (BACKUPS ONEF110UT); ! too many outputs 
ELS 


BEG TOUALCOUAL LIST] AND .QUALCQUAL _OUTP LIST] EQL 0 
‘a THEN SIGNAL (BACKUP$_ LISINPSAV): ! LIST input must be saveset 


a 
i 
Xr NNAMSH EXP_NAME A 
NAMSM_ EXP” TYPE OR NAMSA EXP. VER)) NEQ 0 
— THEN STGNAC(BACKUPS_INCFILSPE); ! A~ /INCREMENTAL spec 
; 
g cus 
2 
2 
é RETURN ; 
1 


a ee ee ee De 8 a td ad = 8d od od ot 


kk tk a DD et a i a ed a td 
} te tet eet $e Oy ye et Ade 


AUP WN OC OONOULSWH OO 


PoRononoronononononononoponononorny 
MPPoPoRoNoNonononenononononoronononony 


001C 00000 CHECK_F11: 
WORD 


-WO Save R2,R3,R4 : 
54 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R4& : 
33 00000000' EF 9E 00009 MOVAB CHK FLAGS#1, R3 : 
52 00000000" EF 9E 00010 MOVAB QUAL +8. R2 : 
25 04 ag 05 gl 00017 BC #5, QUAL+12, 2$ : 2225. 
6 08 A 0001C BICB2 8. CHK FLAGS#1 : 2228 
01 FF A391 9001t CMPB HK_FLAGS, #1 > 2229 
09 1B 00023 BLEQU ; 
000000006 8F DD 900 5 PUSHL #BACKUPS ONE PHYDEV : 2230. 
01 FB 8 8 CALLS . LIBSSIG 3 
50 04 AC DO OO002E 1$ MOVL RO > 2231. 
47 = BF 4 A0 ? 00 B18 haa a #71 > 2233) 
000000006 i Dd 90 9 PUSHL  #BACKUPS_PHYFILSPE : 2234 
3 °6«21 O3F BRB 7$ 3 
95 9 A 03 EO 0041 2$: BBS 43, QUAL+10, 3$ : 2236. 
3 A 1 £1 00046 BBC #1, COM_ FLAGS, 6s : 
03 ”:é 01 £0 00048 38: BBS #1. COMTFLAGS. 4 : 3 39 | 
6 08 A 005 BICB2 #8. CHK “tA AGS#1 > 2241 | 
01 FF A 1 000 4%: CMPB CHK FLAGS, #) : 2242 


fre 


f—-—— 


12 
-Sep-1984 


| 
| 
| COMMAND Command parser 1 3:45:21 AX-11 Blis 
 V04-000 CHECK FIG = check F11 format 14-Sep-1984 7:93:25 (BACKUP SREd 
12 1 057 BLEQU 5$ : 
| 0 08 Ac 8 059 BLBS § OUTPUT_SIDE, 5$ : 
| 09 72, =A 1 £0 0005p BBS #1, COM_FLAGS, 5$ : 
000000006 8F DD 0068 PUSHL #BACKUPS_ONEIMGDEV + 2263 
4 1 FB 0006 CALLS #1, LIBSSIGNAL 3 
0 04 AC p 0068 5$ MOVL NAM, R : 3 44 
47 «BF 4 Ad O06 118 52(RO), #71 + 2246 
000000006 a bb 9076 PUSHL #BACKUPS_IMGF ILSPE 3 2247 
14 02 42 04 £1 OO07E 6$ BBC #4, QUAL+10, 8$ + 2249 
5 04 AC 008 MOVL ON : 3 52 
4? BF a | 0 BITB 52(RO), #71 + 2254 
09 13 0008¢ BEQL : 
000000006 8F DD O008E PUSHL #BACKUPS_INCFILSPE 3 2255 
64 1 FB 00094 7$: CALLS #1, LIBSSIGNAL 3 
09 63 1 €1 00097 8$: BBC #1, CHK_FLAGS+1, 9$ : 3259 
000000006 8F DD 00098 PUSHL #BACKUP$_INCDEVLIS ; 2260, 
64 1 FB 000A) CALLS #1, LIBSSIGNAL r 
18 08 aC E9 O00A4 9S: BLBC OUTPUT SIDE, 7 2263) 
01 FF =6A3 91 OO0A8 CMPB = CHK_FLAGS, #1 3 2267, 
24 1B OOOAC BLEQU§ 12$ : 
1F 92 A2 03 €0 O00AE BBS #3, QUAL+10, 12$ : 2268 
1A 72 Ae 01 £0 0008 BBS #1, COM FLAGS, 12$ 3 2269 
000000006 8F DD 00088 PUSHL #BACKUPS_ONEF {10UT : 2e71| 
OF 11 OOOBE BRB 11$ : 
OE 03 A2 €9 000C0 108 BLBC QUAL+11, 12$ 3 2275 
FC A2 D5 0004 TSTL QUAL+4 ; 
09 12 000C7 BNEQ 12$ : 
000000006 8F DD 000C9 PUSHL #BACKUP$_LISINPSAV 5 2276 
64 01 FB OOOCF 11$: CALLS #1, LIBSSIGNAL 3 
04 000D2 12$: RET : 2281 
; Routine Size: 211 bytes, Routine Base: CODE + O5DE 


; 1187 2282 1 


aon 
| 
nm 


— 


IPOD at at et a ot 


mrrororororororrr 


000.0 000000 00000000 


PEN —OOONOUSW OO 


ARAVLSSSLESRANLES 
ono 


Sse 


MEWN—O0On 
WIWAIWAWIwinoronononon 


MMIPUPORoToTonofnorrorfery: 
Oe de ad ed ed 
OOooooocoowvovowo 


sono 


IANO POPUNOPoNoPonoTny 
FUN SSSVERRASLS 
IA. AAAI PUPINPINPINININININS 4 2 OO OOO "OO 


Www 


MEWNM—OOOnNOu 


ee a ee ee ea a ed ee ee ee ed wed ed ed 
PIP NINIPINIMINININININYATTNINININIPIPIPIPINIAINIAIPYUPINOPOTUNINUPOPUPONONONY) 


ANWANAAAINI AINA NIAINI NAIA AINA AAAI AAI AIAIW ANI 


WAWW 


DONOW 


12 
arser 1.56 1984 23:45:21 AX-11 Bliss-32 V4.0-742 P 4 
ohMON = perform common check 12-800- 1c #7583323 EBACKUP SRE COMMAND .832; 1 age 135 


ZSBTTL *CHECK_COMMON - porters common check’ 
ROUTINE CHECK-COMMON( FAB : REF BBLOCK, OUTPUT_SIDE ): NOVALUE= 


lee 
! 


i FUNCTIONAL DESCRIPTION: 
his routine performs the common checks for input and output lists. 


INPUT PARAMETERS: 

f - address of FAB 

OUTPUT_SIDE - True if output, false if input. 
IMPLICIT INPUTS: 

NONE 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: . 
Messages may be signalled if errors are detected. 


BEGIN 
IF NOT .COM_FLAGSCCOM_STANDALONE) 
THEN 
- -BBLOCKCFABLFABSL_DEV], DEV$v_SQDJ 
NOT .CHK FLAGSCCHK_FLAGS_SAVE_SET] AND 
(.QUALCQDAL_PHYS) OR 
-QUALCQUAL[IMAG] AND .OUTPUT_SIDE AND NOT .QUALCQUAL_COMP]) 


THEN 
BEGIN 


i Tape save set, physical volume, or image output. 
Must be mounted foreign. 


NOT (.QUALCQUAL PHYS]”AND NOT .OUTPUT_SIDE AND 
THEN .JPI_CURPRIVCPRV$V_LOG_10)) 


FILE_ERROR(BACKUP$_MOUNTFOR, .FAB); 
LSE IF NOT .CHK FLAGSCCHK, FLAGS SAVE, SET] 
BEGIN 


NOT (CQUALEOUAL Pars) DEV], DEVSV_FOR] AND 


co SN = 


18.3501 


C ND Command parser 984 23:45: AX-11 Bliss-32 V4.0-742 Pa 43 
v04-000 CHECK. COMMON = perform common check 12-80 8-1 984 #758348 EBACKUP’ SRC ICOMMAND.B3241 9° 13) 
3 3 “8 0 ' Files. 
3 ! th rf Must be mounted Files-11. 
3; 1269 rk IF .BBLOCKCFABCFABSL_DEV], DEVSv_FOR] 
3; 1250 44 THEN 
3 1251 45 FILE _ERROR(BACKUPS_MOUNTF11, .FAB); 
; 28 rk END; 
s ; a rf RETURN ; 
3; 1256 2350 1 END ; 
000C 00000 CHECK_COMMON: 
-WORD Save R2,R3 3: 2284. 
53 00000000" EF 9€ 00002 MOVAB CHK_FLAGS+1, R3 : 
52 00000000" EF 9E 00009 MOVAB QUAL+12, R : 
52 6E 4 01 £0 00010 BBS #1, COM_FLAGS, 5$ : 231 
5 04 AC DO 00015 MOVL ~R 3; 231 
16 40 ag 05 £0 00019 BBS #5, 64(RO), 1$ 3 
45 6 bg EO Be055 BBS #2, CHK_FLAGS+1, 5$ 3 231 
OE 62 05 £0 00022 BBS #5, QUAC+12, 1$ : 232 
25 FE A2 03 €1 00026 BBC #3, QUAL+10, 3$ 3 232 
21 08 Ac Eg 00028 BLBC OUTPUT_SIDE. 3$ : 
FC A2 5 BOO $s TSTB QUAL+8 é 
1¢ 19 00032 BLSS 3 
2F 43 AO €E8 00034 1$: BLBS 67(RO), 5$ : 2330 
OA 62 05 £1 00038 BBC #5, QUAL+12, 2$ 3 2331. 
06 08 aC €E8 B00 5c BLBS OUTPUT_SIDE, 2$ 3 
FEE8 C2 95 00040 TSTB JPI_CURPRIV 3: 2332) 
21 19 00044 BLSS 6 -5$ F | 
50 DD 00046 2$: PUSHL RO 3 2334) 
00000000G 8F DD 00048 PUSHL #BACKUPS$_MOUNTFOR 3 
10 11 OO04E BRB 4 3 
13 63 0¢ EO 00050 3$: BBS a CHK_FLAGS+1, 5$ 3: 2336 
OF 43. AO €9 00034 LBC =—_-«@ 7(RO) , “5S > 2343 
50 DD 39 58 PUSHL R 3 2345 
00000000G 8F DD OOOSA PUSHL #BACKUPS_MOUNTF 11 $ 
000000006 00 02 FB 00060 4$ CALLS #2, FILE_ERROR 3 | 
04 00067 5$ RET ; 2350. 


3; Routine Size: 104 bytes, Routine Base: CODE + 0681 


3 1257 2351 1 
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F 1 
Command perser 15-Sep-19 
BUILD _QUAL_DESC = Build qualifier block descrip 14-Sep-1984 8 
: 1 XZSBITL "BUILD_QUAL_DESC = Build qualifier block descriptors’ 
: ROUTINE BUILD-QUAL“DESC( PTR : REF BBLOCK, NAM : REF BBLOCK ): NOVALUE= 
5 : hed 
8 1 ' FUNCTIONAL DESCRIPTION: 
28 : : This routine fills in the descriptors in the qualifier block 
60 1! INPUT PARAMETERS: 
61 1! PTR - Address of block 
6¢ ; } NAM - Address of NAM block 
64 1 ' IMPLICIT INPUTS: 
69 ! NONE 
$6 1 | OUTPUT PARAMETERS: 
68 ; NONE 
320 1 ' IMPLICIT OUTPUTS: 
"a 2s NONE 
372 1: 
32 1 ! ROUTINE VALUE: 
7% 13 NONE 
375 1! 
376 1! SIDE EFFECTS: 
377 13 
2378 1 lee 
379 1 
380 BEGIN 
Saag } Set up expanded-string descriptors. 
2384 2 BBLOCKCPTRCQUAL_EXP_DESCJ, DSC$W_LENGTH] = .NAMCNAMSB ESL); 
385 2 BBLOCKCPTRCQUAL_EXP-DESCJ, DSCSA-POINTER] = .NAMCNAMSC ESA); 
386 2 BBLOCKCPTRCQUAL_DEV_DESC], DSC$W_LENGTH) = .NAMCNAMSB DEV); 
387 2 BBLOCKCPTRCQUAL_DEV~DESCJ. DSCSA-POINTER) = NAMENAMSE DEVS; 
388 LOCKCPTRCQUAL-DVI-DESCJ, DSC$W_LENGTH] = . (NAMCNAMST bv $<0,8>; 
34 LOCKCPTRCQUAL_DVI-DESCJ, DSCSA_POINTER] = NAMCNAMST_BvI) + 1; 
391 RETURN ; 
3392 
2393 1 END; 
0004 00000 BUILD_QUAL_DESC: 
oW Save R2 
50 04 aC 7d 00002 MOVO = PTR, RO 
5 8 AO 9E 00006 MOVAB 8(RO), R2 
6 Al 98 OOA MOVZBW 11(R15, (R2) 
06 =A C al 00 0000 VL 12(R1), 4(R2) 
5 16 AO 9E 901 MOVAB 16(RO). R2 
6 39 Al 9 1 MOVZBW 57(R1). (R2) 
06 =A 44 COAT D 0018 OVL 68(R1) 4(R2) 
5 18 002 ADDL2 #24, RO 


4 23:45:21 AX-11 Bliss-32 V4.0-742 
3 738334 EBACKUP-SRE COMMAND .B32;1 


(1 


Page 44 


3) 


COMMA fennend $12 ,-1986 23:45:21 VAKe11_BLiss-32 v4.0-762 Page 45 

your000 BUILD. QUAL DESC = Build a phech Gesert Ean SH Crit tt tg Pt tee 79° 13), 
Al 98 000 MOVzBU 20(R1), (RO) ; 

o $8 ee 0037 STRIP. GeROD 2 2389 

04 0009C : $393, 


; Routine Size: 45 bytes, Routine Base: CODE + 0719 


; 1301 2394 1 


12 
arser 18-5 1984 23:45:21 AX-11 Bliss-32 V4.0-742 P 4 
check input and output lists 12-808-198e $7583 348 EBACKUP SRE COMMAND .832;1 age 48 


ZSBTTL "CHECK = check input and output Lists’ 
ROUTINE CHECK ( ROOT : REF BBLOCK, OUTPUT_SIDE ): NOVALUE= 


e+ 


: 

> 130 i 

; 1308 1 FUNCTIONAL DESCRIPTION: 

3 ; : : This routine validity=-checks the input and output Lists. 
: 1 9 i INPUT PARAMETERS: 

3 1 \§ $ ROOT - Address of root of the input or output List. 
; : ‘7 OUTPUT_SIDE - True if output, false if input. 
: 1315 i IMPLICIT INPUTS: 

; ; 18 : NONE 

: 1318 i OUTPUT PARAMETERS: 

: 19 : NONE 

: 1321 i IMPLICIT OUTPUTS: 

: : ¢ NONE 

> 1324 i ROUTINE VALUE: 

; ! 36 NONE 

> § i SIDE EFFECTS: 

3 1 $8 Messages may be signalled if errors are detected. 
: 1380 ine 

> 1331 

3 1338 BEGIN 

> 13 LITERAL 

3 1335 ALL_WILD_LEN = ZCHARCOUNT('#,#;#"), 

: i 36 WILB_VERS_LEN = XCHARCOUNT(';#'5; 

: 1338 IND 

: 1339 ALL_WILD = UPLIT BYTE('#,.#:#"), 

3 1340 WILB_VERS = UPLIT BYTE(';#'5; 

; 1342 LOCAL 

+ 134 FAB REF BBLOCK, 

+ 1344 REF BBLOCK, 

: 1345 C REF BBLOCK, 

: 1 g WORK_FAB REF BBLOCK, 

: 1 RK~ REF BBLOCK, 

: 1348 WORK"FC REF BBLOCK, ; 

3; 1349 PTR REF BBLOCK, ! Cursor for list 
3 1331 LAST_PTR REF BBLOCK; ! Previous Cursor for List 
: 1 3 LAST_PTR = .ROOT; 

: 133 PTR = ..ROOT: 

> 1354 CHK_FLAGS = 0; 

3; 1355 

31 36 ' 

3 : rH } If no files then return 

: 1359 if .PTR EQL 0 


Command i -1984 23:45: Ax-11 Oi ies =32 v4.0-742 
CHECK = Chock input and output Lists 12-Sep-19 4 47:93:23 YBACKUP. SRO COMMAND . 832;1 

: hg 

3:1 454 QUALCQUAL_OF 11) = .CHK_FLAGS(CHK_FLAGS_F11 

: 1 455 QUALCQUALZOSAV] = .CHKFLAGSECHK FLAGS “SAV: 

: 1 2$ RETURN ; 

3 : rs END ; 

24 4 § ' ° 

3 1 460 ' Allocate an FC block to do the work with and initialize 

: : ree it to match the first Pe in the List 

31 188 FC = .PTRCQUAL_PARA_FC) ; 

: 4 464 2 FAB = FCERC FAB) : 

; ' 465 2 NAM = FCCFC"NAM) ; 

> 1374 466 WORK_FC = GET_VM ( FC_S_AREA ) ; 

: 1 46 COPY-FC ( .FC> .WORK_FC, .FABLFABSB_FNS), .FABLFABSL_FNAJ ) ; 

1376 468 2 WORK“FAB = WORK FC re _FAgi ; 

: 1 469 2 WORKNAM = WORK-FCCFC"NAM) ; 

31 470 2 WORK_NAMCNAMSL_RLFJ ="0 ; 

: 1379 471 

: 1380 ae 

; 1381 47 ' Parse search Lists for input 

; 138¢ 474 i 

: 138 475 if NOT .OUTPUT_SIDE 

: 1388 47 TH 

> 1385 47 CHK_FLAGSCCHK_FLAGS_SRCH_LIST] = 1 ; 

3: 1386 478 

: 1387 479 2 WHILE .PTR NEQ 0 DO 

3 1388 480 BEGIN 

3; 1389 481 

: 1390 48 IF .CHK_FLAGSCCHK_FLAGS_COUNT] NEQ 0 

: 1391 248 THEN 

: 1398 484 4 BEGIN 

: 139 485 4 ' 

3 1394 486 4 ! This is not the first time through 

: 1399 487 4 ' so reinit the FC 

: 1396 488 4 i 

3 1397 489 4 FC = tilted PARA. FC]; 

3 1398 490 4 FAB = FCLF 

: 1399 491 4 NAM = FC a3 

: 1400 49¢ 4 INIT_FC ( at, i -FABLFABSB_FNS], .FABLFABSL_FNA) ) ; 

3 1401 493 END 3 

: 1208 495 CHK_FLAGSCCHK_FLAGS_COUNT] = .CHK_FLAGSCCHK_FLAGS_COUNT) + 1; 

: 1405 49 IF -QUTPUT SIDE 

; 1406 498 THEN CAK_FLAGSCCHK_FLAGS_SAVE ~$1} = ,QUALCQUAL_0_SAVE 

3 et rh ELSE CHK~FLAGSCCHK_FLAGS_SAVE_SET) = "QUAL QUAL" I"SAVE); 

: 1609 201 4 IF NOT SPARSE (FAB=.WORK_F AB) 

: 1411 508 IF .WORK_FABLFABSL_STS) EQL RMS$_DNF 

: 1218 208 WORK_FABLFABSL_DEV] = DEVSM_FOD OR DEVSM_MNT 

: i218 268 LSE ue _ERROR(BACKUP$_PARSE, .WORK_F 

+ 1416 508 .WORK_FABLFABSL_ STS), AB one _FABLFABSL_STV)); 


Salada Te GE ES, eae poss 
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NOT -BBLOCKTWORK FABLFABSL DEV]. DEVSV.FOD) AND 
NOT ((. BBLOCKCWORK_FABLFABSL Deva, vSv NET OR 
they BBLOCK WORK_FABCFABSL_DEVJ, BEVSV_MBX)) AND .CHK_FLAGSCCHK_FLAGS_SAVE_SETI) 


FILE_ERROR(BACKUPS_INVDEVTYP, .WORK_FAB); 


-BBLOCKCWORK_FABCFABSL_DEV], DEVSV_SQD) OR 
sgn’ HK LAGSECAK.FLAGS, SAVE, SETS Kg 


BEG! 


N 
CHK _FLAGSCCHK_FLAGS_ SAV] = TRUE; 
IF SBBLOCKCWORK_FABCFABSL_DEV], DEVSV_FOR] 


BEGIN 
IF _.CHK_FLAGSCCHK_FLAGS_COUNT] EQL 1 
THEN nd: 
WORK _FABEFABSB_DNS) = ZCHARCOUNT('(000000)"); 
WORK FABLFABSL_DNA] = UPLIT BYTE('([000000)"); 
SPARSE (FAB=.WORK_FAB); 
END; 
“ 
QUALCQUAL_SS_FILE] = TRUE; 


CHECK_SAV ( .WORK_NAM, .OUTPUT SIDE ) ; 
CHECK-COMMON ( .WORK_FAB, .OUTPUT_SIDE’) ; 


! Now copy the parsed FC to the List 

COPY_FC ( .WORK_FC, .FC, .WORK_NAMCNAM$B_ESL], .WORK_NAMCNAMSL_ESA) ) ; 
Set up expanded-string descriptors. 

BUILD_QUAL_DESC ( .PTR, .NAM) ; 
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CHK_FLAGSCCHK_FLAGS_F11) = TRUE; 
IF .CHK_FLAGSCCHK_FLAGS_COUNT) EQL 1 
BEGIN 


END 
ELSE 
BEGIN 
5 tOC A ey PTR LONG 

64 3 WILB_LRLF =: REF BBLOCK , 
65 RNAM : REF BBLOCK ; 
e 3 NEW_PTR = 0; 

i 
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Command parser -$ep-1984 23:45: AX-11 Bliss-32 V4.0-74 Pp 49 
CHECK = Pheck input and output Lists | ~300n 1383 49:33:25 YBACKUP- SRE COMMAND B Soot 290 44) 


os 


TS 


{ 
| 
The first related file name must be *.*;* | 
and the default name string must be *.*;* for 
the first round and then the default must be changed 
to ;* for each successive round so that 
stickyness works properly and unless an explicit 
version is requested all versions will be saved. 


SEER ELS 


SSSIEARAWSSSANSAS 


NNNNIO 
Wr 


= GET VM ( ALL_WILD_LEN ) 


WILD RLF ; 
CHSMOVE ( ALL_QILD LEN, ALL_GILD, .WILD_RLF ); 
RNAM = GET_VM”(NAMSC_BLN) ; 

SNAM_INIT T 


POPITORIPIPIPUIPIPIPIPIPIPIPIPIPIPN 


t* ah AL Ab AR Ab Ab ALA AL AL AD Ab Ab Ab cb Ab hb Ab db db db db dh ahh dh ahead 


BEGIN 
WORK_FAB FABSB_DNS] = WILD_VERS_LEN ; 
WORK FAB FABSL-DNAJ = WILD VERS: 


75 
p $39 
Pp § -RNAM, 
v RLF = ,WORK_NAMCNAMSL_RLFJ, 
P 2580 RSS = ALL_WILD_LEN , 
P 2581 RSA = .WICD_RLF 
91 : RNAMCNAMSB_RSLJ = ALL_WILD_LEN ; 
3 4 WORK _NAMCNAMSL_RLFJ =". RNAM ; 
9 5 WORK-FABCFABSB_DNS) = ALL_WILD_LEN ; 
6 WORK-FABCFABSL_DNA] = ALL_WILD; 
7 END 
8 
9 Gl 
0 


CHECK_F11 ( .WORK_NAM, .OUTPUT_SIDE ) ; 
IF CHK FLAGS CCHK FLAGS SRCH_LISTI 
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HEN 
! Expand the search list. If zero is returned then no search | 
! List was present. If this is a search List then it will 
! be expanded and the block pointed to by PTR will be replaced 
! by a list, one for each expansion. The routine value will 
sone H also be the address of the last element in the List. 
604 NEW_PTR = EXPAND_SEARCH_LIST ( .WORK_FC, .PTR, .LAST_PTR ) ; | 
606 IF .NEW_PTR NEQ 0 
607 THEN PTR = .NEW_PTR | 
608 ELSE 
609 BEGIN 


LOCAL 
STATUS : LONG ; 


STATUS = SPARSE(FAB=.WORK_FAB) ; 
CHECK_COMMON ( .WORK_FAB, .OUTPUT_SIDE ) ; 


MEMORY 


SBSVSRRUGLS Sars arava 


i 

Now copy the parsed FC to the List 
if NOT .STATUS 

THEN 
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arser 18-56 “19 2:45:21 AX-11 Bliss-32 V4.0-742 Pa 50 
heck input and output Lists 1228 08=198e $9:$3 225 EBACKUP’ SRe COMMAND .832; 1 atthe 
BEGIN 

IF ,WORK FABLFABSL_STSJ EQL RMSS_DNF 


BEGIN 
WORK_NAMCNAM$V_SYNCHK] = 1; 
STATOS = SPARSE(FAB=.WORK FAB) ; 
WORK _NAMCNAMSV_SYNCHK] = 0 ; 
END ? 

If NOT .STATUS 
FILE_ERROR(BACKUPS_PARSE, .WORK_FAB, 

hl .WORK_FABCFABS$L_STSJ, .WORK_FABCFABSL_STV)); 
; 

IF (.QUALCQUAL_INCR] AND .OUTPUT_SIDE) 


COPY_FC ( .WORK_FC 


FC 
-WORK~FABCFABSB_FNS], .WORK_FABCFABSL_FNAJ ) 


E 
COPY_FC ( .WORK_FC, .FC 
.WORK“NAMCNAM$B_ESL], .WORK_NAMCNAMSL_ESA] ) ; 


Set up expanded-string descriptors. 
BUILD_QUAL_DESC ( .PTR, .NAM) ; 


END ; 
END; 


! Parse with no 10 


ELS 


: Get next List element 


LAST_PTR = .PTR ; 
BTR = .PTRCQUAL_NEXT); 


IF .OUTPUT_SIDE 
THEN 


m 
od 
4d 
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QUAL CQUAL _OF 11) 


- CHK _FLAGSCCHK_FLAGS_F11]; 
1 QUAL _OSAV] 


BEGIN 
t » CHK-FLAGSCCHK"FLAGS_ SAV); 


BEGIN 
QUAL [QUAL _IF 


_IF11) = .CHK_FLAGSCCHK_FLAGS_F 
QUAL CQUAL “ISAVJ 


11]; 
= ,CHK_FLAGSCCHK_FLAGS" SAV); 


an up our work fpace- 
st deallocate all of the RNAM's 


WORK NAME NAMSL RLF : 
REQ 0 DO 


37 @® 


.NAMCNAMSL_RLF) ; 


2 
COMMA Command parser 15-Sep-1984 23:45: 
"000 CHECK = Pheck input and output Lists 127808-1982 $33 : 
3 } 3 if IF .NAMCNAMSL_RSA) NEQ 0 
> 6 ; FREE_VM ( .NAMCNAMSB_RSS], .NAMCNAMSL_RSAJ ) ; 
; 1591 6 FREE_VM T NAMSC_BLN, .NAM ) ; " 
71 3 684 NAM = .PTR ; 
i Be , 
> 1595 e } ' 
3 1 688 ' now the FC 
3; 159 689 ! 
3 1338 $30 IF .WORK_FABCFABSL_FNA] NEQ 0 
3 1600 69% FREE_VM ( .WORK_FABCFABSB_FNSJ, .WORK_FABCFABSL_FNAJ 
3 1601 6 FREE_VM T FC_S_AREA, .WORK_FC™) ; 
; 1006 O38 
3; 160 695 END; 
2A 3B 2A 2€ gh 00746 P.AAF: .ASCII 
A 38 00748 P.AAG: .ASCII 
5D 30 30 30 30 30 30 SB 74D P.AAH: .ASCII 
ALL_WILD= 
WILB_VERS= 
OFFC 00000 CHECK: .WORD 
5E 14 C2 BONE UBL 
04 AC ODD 0000 PUSHL 
046 BC DD 00008 PUSHL 
00000000" EF D4 Boot? CLRL 
6— 05 00011 TSTL 
20 12 00013 BNEQ 
00000000" EF 01 06 00000000' Ff FO Ba853 INSV 
50 00000000" EF 01 1 EF 00022 EXTZV 
00000000" EF 01 07 50 FO 00028 INSV 
04 00034 RET 
50 3 04 C1 00035 1$: ADDL3 
5 4 i) Oat MOVL 
6B 5 pd 03¢ MOVL 
3 0094 C7? 9E 0003F MOVAB 
7 0354 8F 3C 00044 MOVZWL 
aaees | 00 3 Fe Bneh CALLS 
1 AE 0 p0 00050 OVL 
gf AB po 0054 USHL 
7E AB 9A 00057 MOVZBL 
20 AE 0D 00058 USHL 
57 OD O03 PUSHL 
FO3E = CF 04 FB 06 CALLS 
9 18 AE 00 00065 VL 
5A 18 AE 00000094 8F C1 45 ADDL3 
1 AA D4 000 é CLRL 
0c Ag 9 AC D 007 MOVL 
0 C A Boe BLBS 
00000000" EF 0 0 3 BISB2 
08 AE 40 A9 YE 00085 2$: VAB 


3 ¢ ly Oi lagers V4.0-742 


ACKUP. SRC JCOMMAND .B52; 1 


> § 


\t ,ese\ 

\se\ 

\£0000002\ 
P.AAF 
P. AAG 


Saye R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 
#20, SP 

of 

@ROOT 

CHK_FLAGS 

PTR 


1$ 
CHK_FLAGS+1, #6, #1, QUAL+15 
RO, #7, #1, QUAL+15 


#4, PTR, RO 
(RO), FC 


#4, COPY_FC 

WORK_FC, "WORK_FAB 

#148, WORK FC? WORK_NAM 
16(WORK_NAM) 

OUTPUT_S bE. 12(SP) 
12(SP)> 

#8, CHK_FLAGS+1 
64(WORK“FAB), 8(SP) 
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Pe Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Fe Fe Ge Ge Ge Ge Ge Se Se Se Se Be Be Be 


(1 


4) 


vO4~000 


50 00000000° 


50 00000000' 
00000000" EF 


cicioeecesdilatiinseiaiiaiateactahanensiteiiadsiaee 


50 


000000006 
0001C04A 
40 


000000006 
08 
08 
08 

00000000° 


00000” 
08 


Oo 
48 00000000' 
anaes’ 1 


30 


000000006 
00000000' 


FC78 


FDD3 


Command parser 
CHECK = check input and output Lists 


00000000" 


0094 
i 

4 

0 


00000000° 
oc 


08 
00084000 

08 
000000006 


000000006 


00000000" 


FE97 


oc 


0c 


14 


Oo 
“mu6rn 


it 


VIO 


~NOS 


PSMNON— OMOM MONMMVINI™ OWMLOMS"OOW™ PS OO—OO— OruM *WMDD 


So 
o 
nm 
al 


14.22, 


14-Sep- 
D A 3$: 
2 Sine 
$9 4$ 

13 0097 

C 99 

4 9D 
3 A 

E S AK 
go OA 

A QOOAB 
i) AF 
FB Be 
28 0087 5$: 
E OBD 

EF 465 
1 BE 
FO 00008 $3: 
DD 9433 

44 BobE 

E8 000E7 

D1 OOOEA 

12 OO0F2 
DO OO0F4 

11 QOOFC 

7D bo, 05 8$: 
DD 0010 
DD 00104 

43 QO10A 
EO 00111 9$: 
EO 00116 
E1 00118 
EO 00120 10 
DD 00128 11 
DD 0012A 
£6 00137 128 
# Sota, 

8 00144 138: 
3) 014 

1 0015 

5 015 
9 8128 
9E 001 4 

DD 0016 

4 0165 

1 Bige 
88 \¢f 14$: 
DD 00175 15$: 
0D Bie 

FB QO17A 

DD 0017F 

DD 00182 

ce 184 

3 189 

D4 0018C 168: 


a FF:S3iE8 — LBKCKUPPSAESCOnmnd casos 


PTR 
$ 


#1, #1, QUAL+13, RO 


RO. #2, #1, CHK _FLAGS+1 


WOR 
i. SYSSPARSE 
8(WORK_FAB), #114762 
#540672, 64(WORK_FAB) 
8(WORK_FAB), =(SP) 
WORK FAB 
#BACRUPS_PARSE 


4, astsP) 
“FLAGS, #1 


#8, 53(WORK_FAB) 
P.AAH, 48(WORK_FAB) 


#1, SYSSPARSE 

#8, QUAL+15 
1Sispy 

WORK_NAM 

m3 CHECK_SAV 
12(SP) 

WORK_FAB 

#2, CHECK_COMMON 
NEW_PTR 


Ld 
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13 
COMMAND Command parser 18ege 1984 23:45:21 AX-11 Bliss-32 V4.0-74 
v04-000 CHECK = check input and output Lists 12-808-198e 1:53:48 EBACKUP’ SRE COMMAND BS201 
00000000 EF 01 88 0018F BISB2 #1, CHK_FLAGS+1 
Bi 00000000° Ff gf 00196 CMPB ss CHK_FLAGS, #1 
i og Sie BA, OS 
000000006 00 gi FB OO1A1 CALLS #1, GET 
AE g 9 01A8 OVL RO. WILB_RLF 
10 BE FE4O «CF 0 Siac OVC3 #5, ALL_QILD, @WILD_RLF 
7E 60 8F 9A 001B MOVZBL #96, -(SP) 
000000006 99 01 FB 90187 CALLS #1, GET_VM 
5 50 DO 001BE MOVL. RO, RNAM 
0060 = 8F 00 6E 00 2c dich MOVCS #0, (SP), #0, #96, (RNAM) 
68 6002 gP B0 ete MOVW #24578 (RNAM) 
02 As 05 90 O01 CE MOVB = #5, 2(RNAM) 
06 «AB 10 AE DO 001D MOVL WILD_RLF, 4(RNAM) 
10 As 10 AA DO 00107 MOVL 16(WORK_NAM), 16(RNAM) 
03 AB 05 90 0010¢ MOVB , 3(RNAM) 
10 AA 58 DO 001E0 MOVL = RNAM, 16(WORK_NAM) 
35 Ag 05 90 0014 MOVE #5, 53(WORK_FAB) 
30 «Ag FEOS CF 9€ O01E8 MOVAB ALL_WILD, 48(WORK_FAB) 
OA 11 OO1EE BRB 18$ 
35 Ad 02 90 001FO 17$: MOVE #2, 53(WORK_FAB) 
30 «AD FOFE CF 9E OO1F4 MOVAB WILD VERS, %48(WORK_FAB) 
OC AE DD OO1FA 18$: PUSHL  12(SP) 
5A DD OO1FD PUSHL WORK_NAM 
FC8S—sCF 02 FB OOTFF CALLS #2, CHECK_F11 
12 00000000" EF 03 £1 00204 BBC #3, CHK FCAGS+1, 19$ 
04 AE DD 0020C PUSHL LAST_PTR 
04 AE DD 0020F PUSHL 
20 AE DD 00212 PUSHL WORK_FC 
FAA? CF 03 FB 00215 CALLS #3, EXPAND SEARCH_LIST 
14 AE 50 DO O021A MOVL RO, NEW_PTR 
14 AE DS OOZIE 198: TSTL NEW_PTR 
06 13 00221 BEQL 
6E 14 AE 00 00223 MOVL NEW_PTR, PTR 
7D 11 00227 BRB 25$ 
59 DD 00229 208: PUSHL WORK_FAB 
000000006 00 01 FB d0ge8 CALLS #1, SYSS$PARSE 
52 50 D0 00232 MOVL RO, STATUS 
OC AE DD 00235 PUSHL  12(SP) 
4 59 DD 00238 PUSHL WORK FAB 
FDID CF 02 FB O0g3A CALLS #2, CHECK_COMMON 
34 52 £8 0023F BLBS = STATUS, 
0001C04A BF 08 a9 D} O0gh2 CMPL (WORK_FAB), #114762 
14 3 024A BNEQ 1$ 
08 AA 08 8 99 4C BISB2 #8, 8(WORK_NAM) 
59 DD 00 20 PUSHL WORK FA 
000000006 00 01 FB 0025 CALLS #1, SYSSPARSE 
52 50 D0 00 39 MOVL ? U 
08 AA 08 BA 0025C¢ BICB2 #8, 8(WORK_NAM) 
13 8 0 60 21$:  ®8LBS STATUS, 
7E 08 AD 70 0026 MOVQ 8(WORK FAB), -(SP) 
59 DD 67 PUSHL WORK _FAB 
000000006 8F DD 00269 PUSHL #BACRUP$_PARSE 
000000006 00 04 FB 00 $F CALLS #4, FILE ERROR 
Op 00000000° EF 4 €1 00276 22$: BBC #4, QUALTI0, 238 
09 OC AE €9 O027E BLBC =: 12 (SP), 23$ 


MroPonoenrononrnr 
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Less eseee 
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| COMMAND Command parser 1$-se -1984 23:4 
into CHECK = check input and output Lists 12-88-1986 47:8 
C AY DD 0028 PUSHL 
| 7E f AD 9A 8 é MOVZBL 
07 +11 9 BRA 
OC AA DD 0028B 238: — PUSHL 
7E 0B AA 9A 00 4 MOVZBL 
57 DD 00292 24$: — PUSHL 
| 24 AE DD 00294 PUSHL 
F707 CF 4 FB Be 97 CALLS 
6 DD 0029C PUSHL 
04 AE DD 0029E PUSHL 
FDIE CF 0 FB Q02A1 CALLS 
04 AE ge dO 88 A6 25$: MOVL 
E DD OO2AA PUSHL 
FDDB 31 OO2AC BRW 
21 C AE €9 OO2AF 26$: BLBC 
00000000" EF 01 06 00000000" EF FO 00283 INSV 
50 00000000" EF 01 01 EF 002C0 EXTZV 
00000000" EF 01 07 50 FO 002C9 INSV 
1F 11 00202 BPS3 
00000000" EF 01 04 00000000" EF FO 002D4 278: INSV 
50 00000000" EF 01 9 EF Bose! EXTZV 
00000000" EF 01 05 0 4} OO2ZEA INSV 
56 10 AA DO O002F3 28$: MOVL 
29 13 O02F7 298: BEQL 
6E 10 A6 DO 002F9 MOVL 
04 A6 D5 ita TSTL 
OE 13 00300 BEQL 
04 A6 DD 00302 PUSHL 
7E 02 A6 9A 00305 MOVZBL 
000000006 00 02 FB 00309 CALLS 
56 DD 00310 30$: PUSHL 
7E 60 8F 9A 00312 MOVZBL 
000000006 00 02 FB 00316 CALLS 
56 6E 00 0031D MOVL 
05 11 00320 BRA 
2C «6A9 D5 00322 318: TSTL 
OE 13 00325 BEQL 
ef AJ DD 00327 PUSHL 
7E AJ 9A 0032A MOVZBL 
000000006 00 02 FB Ope 3 ALLS 
18 AE OD 00335 328: PUSHL 
7E 0354 F 3C 00338 MOVZWL 
000000006 00 2 FB 00330 CALLS 
04 00344 RET 


3; Routine Size: 837 bytes, Routine Base: CODE + 0755 


: 1604 2696 1 


K_FAB) 
RK-FAB), =(SP) 
K_NAM) 
RK-NAM), =(SP) 
K_FC 

CoPy_FCc 

TR 

#2 BUILD_QUAL _DESC 


PTR, LAST_PT 
PTR 


=U 
~Ser ~~ 


. 27$ 
AGS+1, #6, #1, QUAL+15 
. -FLAGS+1, RO 


#1, QUAL+1 


LAGS+1, #4, #1, QUAL+15 
. CHK FLAGS#1. RO 


RK_NAM), NAM 


F 
4 


ZeAnmew + KRG = Km 
s ‘in 

Re 

we 


) 

) 

», =(SP) 
REE_VM 


A 


ae 4 


BVM BVFWS $$ W- DW BONMD BOW) 
- 22@ 


OPM AOR HAO-- TWO TWH 


o 
. 
~ 
smn 
wv 
~ 


#2, FREE_VM 
NA 


WORK _F AB) 
WORK _F AB) 
WORK-FAB), -(SP) 
FREE_VM 
2, -(SP) 
FREE_VM 


ae Bliss-32 V4.0-742 
BACKUP.SRCJCOMMAND .B32; 1 
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2640 
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2642 
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SRC JCOMMAND .B832;1 


S8¢ fiss3ice — Eeackur” 
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COMMAND - main command parser 


Command pars 


*e 
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oe oo ve 72) ww ._ 
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“. on me oa wi 3 
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Ze tt we = - &« 3 Weee - wees 
+ ae ee ) oe w)e - W ® we Oe $e wo 
€ -—c bd ” thd z -NOw &- @2@2QGQ0 wwe ow 
= en- oe i: 4 ” a ve wv WDE Mew 8 > OE 
1o vw «= ” w ad a oe Z2wZwOvuuZau-r wre 
Vv "> w _ - = ee e a © mono tty Pitt t4 4 
a wo - > w a. w ee ce 2 & aZaiwIa5 OSS wwst x « 
Zw ac a = = > ” eo te wv ACIONONMDODDVVVvveoWwww 
<z=z = J i - c m@ c eeeeeneveeeeeeeeeee 
_ wn" ww 2w Ow daw ww eo <« v 
ond <=-- ez s xz Zz >2 wa Oo uw Oo ~ 
> s<£ 4 - aco 6F-O So «AS a a 
vo - ast eZ =z Sf we ws -—-- = 
-< _ ow -_ Vv 4 [vy) 
- L od _ -_ _ _ 
mz eo ee a2 oe a Se zo 
-@ P=) = = > = = _ —o 
ao + _ - o ~ < w” ' Ov 
“WI + t we 
re Cae oz 


= aaaaaaaaaaaaaaaadada 


SEBS OR SO OO ENO ORI SABA GS 8 So OS LANAI SARA SSS 
eC Ce 


Cee eel cel eel ae eel cel el cel oe el el cl el el eh el cl ce el ee el el ee ee ee ee ee ce el oe el ce el el el el ee el el el ee ee el ee ee 


| 
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ze 3 


Sess 


QUumnnunwvw 


tm) 
AAO 
—OOONOUNS 


764 


PAAAAAAAAO 
SNS SNS 


WRC DONOUSWN OO 


PAA 
te} tet whet 
ww 
Wd MOOS NONE WIM OSCHNOURUN 


& 


~N 


VVVVVVVVUVUVVVVUVVUVVUVVUVUVUVUVVUUUDU 
SN 
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SPSSSSSS 
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SNS NSN 
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SNA AAAAPSAAOAO 
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BV SSeS 


SISAR 
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oa 
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parser 1-52 -1984 23:45:21 AX-11 Bliss-32 V4.0-742 P 
S main command perser 12-88 198e 47583528 FOACKUP SRETCORMAND Boos age 428 


ro 
zs 


"FAST', 
"FULL", 
"GROUP. SIZE’, 
" IGNORE’, 

‘INCREMENTAL’, 
‘INITIALIZE’, 
‘INPUTS’, 

"INTERCHANGE ', 
; DOURNAL", 


MACRO 

SD_ENCRYPT_NAME = SDESCRIPTOR(*ENCRYPT.NAME') % 
SD_ENCRYPT_ALGO = SDESCRIPTOR(*ENCRYPT.ALGORITH 
SDLENCRYPT_VALU = SDESCRIPTOR(*ENCRYPT.VALUE °) 


Mm) %, 
x 
LITERAL 

MAX_STRING= 1024; ! Maximum string value 


BUFFER: VOLATILE BBLOCKCMAX_STRING+2], 
! Buffer for string value 
Status variable tae 
CLI status for INITIALIZE qualifier 
Buffer for converted numerics 
Local descriptor | 
Second local descriptor 
Pointer to last value block 


LOCAL 


STATUS 
INIT STATUS, 
VALUE, 
DESC: BBLOCK(8, 
DESC2: BBLOCK(8), 
LAST: REF BBLOCK; 


1° i > > > | 
Ses SSsene 
—OOONOus 


Execute services to get information needed by the utility. 
if 

BEGIN 

IF .COM_ FLAGSCCOM_STANDALONE) 

THEN TROE 


ELSE IF $GETDVI< 
1977 ipeenaenathenill tial 


: 
5 
: 


F 13 

Command parser 17=3007 1286 $3:63:¢) AX-11 Ot iss -32 v4.0-742 
COMMAND = main command parser 14-Sep-1984 11:53:48 BACKUP. SRCI COMMAND .832;1 

: 1720 P 2811 ; UPLIT 

: 1721 Pp \¢ GORD (4, DVIS_DEVCLASS), DEVCLASS, 0, 

3 17 ¢ 1 4 0)) 

3 17 14 3 THEN 

: 1724 15 4 BEGIN 

3: 1725 19 4 SWAITFR(EFN=0); 

: 17 6 iT .DEVCLASS EQL DC$_TERM 

3: 17 18 4 OR .DEVCLASS EQL BC$_MAILBOX 

; 1728 $12 4 END 

3; 1729 0 ELSE 

; 17350 821 FALSE 

: 1731 Hy i ND 

: 17 ¢ THEN 

3 17 824 COM_FLAGSCCOM_INTERACT] = TRUE; 

3 1734 825 

3; 1735 826 

3; 1736 P : 7 seat -<t | } daa 

3: 1737 P 8 UPLIT 

3: 1738 e se8p GORD (6 ht uit JPI_UIC 

> 1739 P 2830 WORD(12, NAMES, Co1° USERNAME, 0, 

: 1760 Pp 33) WORD ( D(8, seis sOURERY DS jp1_CORPRIV, 0, 

3 1768 P $B3s SGETSYICITMST= 

+ 174 Pp o834 UPLIT¢ 

: 1744 P 2835 WORD(4, SYIS_VERSION), SYI_VERSION, 0, 

> 1745 P 2836 WORD(4, SYI$~SID), SYI_SID> 0, 

3: 1746 sees ); 

: 1747 B38 SGETTIM(TIMADR=JP1_DATE); 

3 1748 2839 DESCCDSC$W_LENGTH] = MAX_STRING; 

: 1749 2840 DESCCDSC$B_DTYPE] = 0; 

3 1750 2841 2 DESCCDSCSB_CLASS) = 0: 

: 1751 oB4e DESCCDSCSA_POINTER] = BUFFERCVAR_BODY); 

: 1738 P Spe STATUS = S$TRNLOG( 

3 175 P 2844 LOGNAM= SDESERIPTOR( SYSSNODE'), 

: 1754 P 2845 RSLLEN=BUFFERLVAR _LENGTH), 

3 1755 2846 RSLBUF = DESC) 

: 1756 847? 3 IF .STATUS AND .STATUS NEQ SS$_NOTRA 

3: 175 848 THEN PRESERVE vETRING (BUFFER. JPI NNODE _DESC); 

1B BS 

: 1760 851 ! Initialize descriptor to describe the string buffer as a PL/I varying ger ion: 

3 1761 see¢ ! Initialize second descriptor to describe the body portion -- the length wil 

: 1768 S27 be filled in as necessary. 

: 1764 855 DESCCDSC$W_MAXSTRLEN] = MAX_STRIN G; 

: 1765 B36 DESCCOSC$B_DTYPE) = DSCSK_DTYPE_T 

; 1766 85 DESCCDSC$B-CLASS] = DSCSK~CLASS— Vi; 

: 176 858 DESCCDSCSA~ POINTER} = BUFFER; 

: 1768 +4 DESC2CDSCS$O_LENGTH) = 

3 1769 60 2 DESC DSC$B-DTYPE] = DSCSK_DTYPE_T; 

: 1770 861 DESCOCDSC$B-CLASS) = DSCSK-CL 

: 1771 B62 DESC2CDSCSA_POINTER) = BUFFERCVAR *booy); 

: 1776 86 

3; 177 4 

3 1774 65 ' Get the command. 

: 1775 Ht : 

3; 1776 6 CLISGET_VALUE(SD_SLINE, DESC); 


te. 


A 


: 


5 


< 


020903030903 09 > —J I~ 
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COV 
SSBLESELNLSES 


o 
= 


Sesess 


2.6202 0202 2 98 29 293808 


Men 
NOUEWN OO OONOUESWN—OO@ 


MIOPIPOPofoT 


kt i ak ek ek a tn i at a os = a 4 8 = 8 SS an Ss SS SS SY SH YS SS 9 = YY — HF 


WhO Oo 


WWI 


TRUE 


909 ELS 


Command parser 19.43 Sep-19 3:45:21 AX-11 Bliss-32 V4.0-742 Pa 8 
COMMAND : main command parser 14- ~300 138% $7583 52 BACKUP. SRCJCOMMAND .832; 1 9 43 
$3 PRESERVE_STRING(BUFFER, QUALCQUAL_CMD_DESC); 
0 
a! } Get the /ANALYZE qualifier. 
er8 QUALCQUAL_ANAL] = CLISPRESENT(SD_ANALYZE); 
875 
a78 Get the /BACKUP qualifier. 
Me QUALCQUAL_BACK] = CLISPRESENT(SD_BACKUP); 
80 
+t Get the /BEFORE qualifier. 
BBS if CLISGET_VALUE(SD_BEFORE, DESC) 
884 THEN 
gB85 BEG! 
886 QUALCQUAL BEFO] = TRUE; 
st IF CALL. FeARSE (BUFFER. BAK_STATES, BAK_KEYS) 
2889 1 ge UME CaUAL BEFO_BACK] = TRUE 
2891 4 BEGIN 
892 4 besC2(pscsy LENGTH] = .BUFFERCVAR_LENGTH]; 
893 4 IF LIBSCVT_TIME(DESC2, rt ee BEFO_VALUE 
B9% $ a SIGNAL (BACKUP$_INVQUAVAL, 3° garetts _LENGTH], BUFFERCVAR_BODY], SD_BEFORE); 
896 END; 
$98 
999 ! Get the /BLOCK_SIZE qualifier. 
901 IF CLISGET_VALUE(SD_BLOCK_SIZE, DESC) 
90 THEN 
$304 on 
905 4 BEGIN 
906 4 IF NOT LIBSCVT_DTB(.BUFFERCVAR_LENGTH), BUFFERCVAR_BODY), VALUE) 
907 ‘ THEN 
4 
910 é .VALUE = 2048 GTRU 65535 - 2068 ! 2048 <= N <= 65535 
91 

ig IGNAL (BACKUPS JNYQUAVAL . 3, .BUFFERCVAR_LENGTH], BUFFERCVAR_BODY], SD_BLOCK_SIZE); 
914 QUALCQUAL_BLOC) = 
915 QUAL QUAL “BLOC_ VALUED = VALUE; 
916 END; 
HF 
333 : Get the /BRIEF qualifier. 
: CLISPRESENT(SD_BRIEF); 
9 
924 ! Get the /BUFFER_COUNT qualifier. 


| 
| 
| 


# 
. 
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D : main command parser 14-Sep-19 4 47:$3 548 YBACKUP SRE COMMAND .832;1 aee 435 


33 


' 

if CLISGET_VALUE(SD_BUFFER COUNT, DESC) 
BEGIN 
IF 


BEGIN 

i LIBSCVT_DTB( .BUFFERCVAR_LENGTH], BUFFERCVAR_BODY], VALUE) 
TRUE 

ELSE 
-VALUE = 2 GTRU 5 = 2! 2 <= N <= § 


ODOOOOOOOOOOO0OO0O 


WAG 


SOOONAOMNE WN" OVOOnouw 


THEN 
IGNAL (BACKUPS_INVQUAVAL, 3, .BUFFERCVAR_LENGTH], BUFFERCVAR_BODY)], SD_BUFFER_COUNT); 
QUALCQUAL_BUFF] = TRUE; 

QUAL QUAL_BUFF_VALUE] = .VALUE; 


4 

4 

4 

4 

4 

4 
Bee Get the /COMMENT qualifier. 

6 QUALCQUAL_COMM] = CLISGET_VALUE(SD COMMENT, DESC); 

Get the /COMPARE qualifier. 

4 


PRESERVE _STRING(BUFFER, QOALCQUAL_COMM_DESCJ); 
QUALCQUAL_COMP] = CLISPRESENT(SD_COMPARE); 


SSG 2 0 O G02 8 > OOo 2 GGG BB O02 DHOR CR 
WN “ODDO VUESWN “DO DO0ONOULWN—O 


Get the /CONFIRM qualifier. 
QUAL CQUAL_CONF J = CLISPRESENT(SD_CONF IRM); 


to 


e 


Get the /CRC qualifier. 
QUALCQUAL_CRCJ = CLISPRESENT(SD_CRC); 


: Get the /CREATED qualifier. 
QUALCQUAL_CREA] = CLISPRESENT(SD_CREATED); 


a twtwtapetapetatat| 
OULWN—OO 
O00 
o 
S 


oon 
> 
io 
oO 


Get the /DELETE qualifier. 
QUALCQUAL_DELE) = CLISPRESENT(SD_DELETE); 


: Get the /DENSITY qualifier. 
IF CLISGET_VALUE(SD_DENSITY, DESC) 
peGin 
BEGIN 


. 1 
3 1 
3 1 
2 1 
ee 1 
3 1 
J 1 
3 1 
o 1 
. 1 
3 1 
3 3 
eo 1 
a 1 
oe 1 
3 1 
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Co 1 
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. 1 
. 
1 
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. J 1 
. ¥ 
3 1 
> 
3 1 
3 1 
: 3 
3 1 
3 1 
* 1 
+ 1 
3 1 
3 
° 1 
3 1 
3 1 
3 1 
3 1 
ae 1 
3 1 
3 1 
3 1 
3 1 
 ? 
.} 
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“ 1 
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‘ DSC$K_DTYPE_ 
“CLASSJ_= DSCSKZCLASS"S ; 
LENGTH) 


H 
BBL OCK QUAL CQUAL “CRYP-USERALG A-POINTER] = GET_VM(6) ; 
CHSMOVE (6,PLIT 


Www 


4 
a -BBLOCKL QUAL CQUAL_CRYP_USERALG), DSCSA_POINTER }) 


Obtain one or more key values if present 
WHILE  CLISGET_VALUE (SD_ENCRYPT_VALU, DESC) DO 


Comm 1 

| V¥04-000 COMMAND = main command parser 14-Sep-1984 BACKUP .SRCJCOMMAND.832;1 
; 1891 9 § 4 IF NOT LIBSCVT_DTB(.BUFFERCVAR_LENGTH], BUFFERCVAR_BODY], VALUE) 
; 1336 9 4 THEN 

; 189 984 4 TRUE 

3 1894 985 4 ELSE 

; Hb a 2 § ? seLec Tone -VALUE OF 

3 1899 14 4 $08 : (QUALCQUAL_DENS_VALUE] = MT$K_NRZI_800; FALSE); 
3; 1898 989 4 8 : (QUALCQUAL_DENS_VALUE] = MTSK_PE_16 F FALSE); 
> 1899 990 4 6250): (QUAL QUAL“DENS-VALUE) = MT$SK~GCR_6250; FALSE): 
: 1900 991 4 OTHERWISEJ: TRUE; 

: 1901 336 4 TES 

; 190 993 4 END 

3; 190 994 THEN 

3; 1904 995 Serge INVQUAVAL, 3, .BUFFERCVAR_LENGTH], BUFFERCVAR_BODY), SD_DENSITY); 
3; 1905 96 QUALCQUAL_DENS] = TRUE; 

3 139 99 ND; 

: 190 338 

3; 1908 

3 4 44 Get the /ENCRYPT qualifier. 

3 1911 OO ee as SS_ENCRYP]) =  SOPRE SET LSP SCOOT 

3 Hb a 00 IF .QUALCGUAC_SS_ENCRYP 

3; 191 004 THEN 

3 1914 005 BEGIN 

3: 1915 006 IF CRYPTO_INIT EQLA 0 

3 1316 007 THEN 

3; 191 008 SIGNAL (BACKUPS_ENCNOTSUP, 3, .BUFFERCVAR_LENGTH], 

3 12i3 S04 BUFFERTVAR_BODY), SD_ENCRYPT); 

3 13st ot) Obtain the key name if present 

3 1958 O18 iv CLISGET_VALUE (SD_ENCRYPT_NAME ,DESC) 

: 13S¢ aE PRESERVE _STRING(BUFFER ,QUALCQUAL_CRYP_USERKEY)); 

; 1958 O17 Obtain the algorithm name. 

; 1928 3619 IF CLISGET_VALUE(SD_ENCRYPT_ALGO, DESC) 

3: 1929 Tt THEN 

; 1930 021 PRESERVE_STRING(BUF FER ,QUALCQUAL_CRYP_USERALG]) 

: 138; bse ELSE 

3 19 $ 0 ' 

3 133 OS¢ Cram the default algorithm name string 

3 1988 036 4 BEGIN 

3 1938 0 2 BBLOCK QUAL CQUAL_CRYP_USERALG DTYPE] = $K_DTYPE_T ; 
3 19 4 

3: 19 4 

3 1 4 

s 1 4 

3 1 

2 1 

s 1 

3 

s 1 

3 1 4 
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Command parser 
COMMAND : nate command parser 14-Sep-1984 53:48 BACKUP. SRC JCOMMAND.832;1 
: 1948 39 4 LOCAL 
I 194 4 VALU: EF BBLOCK; 
: 1950 1 4 = GET ZERO VM(QUAL_S _ENCV) ; 
; 1951 42 4 PRESERVE STRINGTBUFFER, VACULQUAL_ENVA_DESC)) ; 
3: 19 ¢ be 4 VALULQUAC_ENVA_LINK] = .QUALCQUAC_CRYP_VLIST) ; 
: 198 4 QUALCQLAL“CRYP-VLIST] = .VALU ; 
: 1988 bce > END ' 
: 1956 Of Get the /EXCLUDE auslifier. 
> 1958 bc8 LAST = 0; 
; 1939 990 WHILE CLISGET_VALUE(SD_EXCLUDE, DESC) DO 
: 1961 05¢ LOCAL 
; 196¢ 093 EXCL: REF BBLOCK; 
> 1964 055 QUALCQUAL_EXCL) = TRUE; 
: 1965 026 EXCL = GET_ZERO_VM(QUAL_S_EXCL); 
; 1966 05 IF .LAST EOL 
: 196 058 THEN GUALCQUAL_EXCL_LIST] = .EXCL 
; 1968 059 ELSE LASTCQUAL_NEXT] = .EXCL; 
; 1969 060 LAST = .EXCL; 
: 1970 061 PARSE_EXC_SEL(BUFFER, SD_EXCLUDE, EXCLCQUAL_EXCL_DESCJ); 
> 1971 6¢ END; 
: 1338 oi 
; 197% 065 ! Get the /EXPIRED qualifier. 
> 1976 067 2 QUALCQUAL_EXPI] = CLISPRESENT(SD_EXPIRED); 
: 13% 069 
: + 464 3579 Get the /FAST qualifier. 
3 1981 307 QUALCQUAL_FAST] = CLISPRESENT(SD_FAST); 
: 1983 sop 
; 1984 075 ! Get the /FULL qualifier. 
: 1986 O79 QUALCQUAL_FULL] = CLISPRESENT(SD_FULL); 
es 
; 1989 080 ! Get the /GROUP_SIZE qualifier. 
; 1991 088 if CLISGET_VALUE(SD_GROUP_SIZE, DESC) 
He Bye 
> 1995 086 4 BEGIN 
3 Hh a rt ? U NOT LIBSCVT_DTB(.BUFFERCVAR_LENGTH], BUFFERCVAR_BODY), VALUE) 
ot rn as 
> 2000 091 4 .VALUE GTRU 100 
we Be 
; 608 094 ; IGNAL (BACKUP$_INVQUAVAL, 3, .BUFFERCVAR_LENGTH], BUFFERCVAR_BODY), SD_GROUP_SIZE); 
3 2004 095 QUALCQUAL_GROU] = TRUE; 
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QUAL COUAL _GROU_VALUE = .VALUE; 


i | 


SESS 
ooo 


Get the /IGNORE qualifier. 
WHILE CLISGET_VALUE(SD_IGNORE, DESC) DO 
BEGIN 


wn 


01 TPA_FLAGS = 0; 
O14 iF Rot CALL_TPARSE (BUFFER, IGN STATES, IGN_KEYS) 

' SIGNAL (BACKUPS_INVQUAVAL, 3, .BUFFERCYAR_LENGTH], BUFFERCVAR_BODY], SD_IGNORE); 
oS IF -TPACFLAGSETPA-AOBACKUP] fHEN QUALEQUAL_IGNO_NOBAS = TRUE; ~ -! . 
O18 JF: TPALFLAGS TPA_INTERLOCK] THEN QUALCQUAC_IGNO_INTE] = TRUE; 

a | 

; § Get the /IMAGE qualifier. 

9 4 QUALCQUAL_IMAG] = CLISPRESENT(SD_IMAGE); 

0 

° ; Get the /INCREMENTAL qualifier. 

0¢9 QUALCOQUAL_INCR] = CLISPRESENT(SD_INCREMENTAL); 

031 

O38 ! Get the /INITIALIZE qualifier. It defaults to TRUE if the output 
03 : is not a save set. 


INIT_STATUS = CLISPRESENT(SD_INITIALIZE); 
QUALTQUAL_INIT] = .INIT_STATOS; 


MMT 


ooo 


Get the /INTERCHANGE qualifier. 
QUALCQUAL_INTE] = CLISPRESENT(SD_INTERCHANGE); 


! Get the /JOURNAL qualifier. 
if CLISPRESENT(SD_JOURNAL) 
THEN 


N 
CQUAL_JOUR] = TRUE; 

ET_VALUE(SD_ JOURNAL, DESC); 
QUAL_JOUR_FC) = GET_FC (BUFFER); 
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: Get the /LABEL qualifier. 
= 0 
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LABE: REF BBLOCK; 
IF, ;BUFFERCVAR LENGTH] GTRU 12 
IGNAL (BACKUPS INVQUAVAL, 3, .BUFFERCVAR_LENGTH], BUFFERCVAR_BODYJ, SD_LABEL):; 


QUALCQUAL LABE] = TRUE; 
ABE = GET ZERO_VACQUAL_S_LABE); 


<a 


SS 


F LAST 
070 THEN GUALFoUAL age LIST] = .LABE 
071 ELSE LASTCQUAL-NEXT] = .LABE; 
Bf8 LAST = .LABE; 
4 CHSCOPY ( 
n gOYF CERCVAR LENGTH, BUF FERCVAR_BODY], 
076 5, LABECQUAL_LABE_VALUE}); 
07 END; 
B78 
07 
oat Get the /LIST qualifier. 


IF CLISPRESENT(SD_LIST) 
THEN 


08 
084 BEGIN 
85 QUALCQUAL_LIST] = TRUE; 
086 CLISGET VALUE (SD List, DESC); 
87 QUALCQUAL_LIST_FT) = GET_FC(BUFFER); 
088 END; 
089 
090 
+4 Get the /LOG qualifier. 
09 QUALCQUAL_LOGJ = CLISPRESENT(SD_LOG); 
209% 
096 ! Get the /MODIFIED qualifier. 
098 QUALCQUAL_MODI] = CLISPRESENT(SD_MODIFIED); 


Get the /NEW_VERSION qualifier. 
QUALCQUAL_NEWV) = CLISPRESENT(SD_NEW_VERSION) ; 
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: Get the /OVERLAY qualifier. 
QUALCQUAL_OVER] = CLISPRESENT(SD_OVERLAY); 


SELESRENLS 


Get the /PHYSICAL qualifier. 
QUALCQUAL_PHYS] = CLISPRESENT(SD_PHYSICAL); 


: Get the /RECORD qualifier. 
QUALCQUAL_RECO] = CLISPRESENT(SD_RECORD); 
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: Get the /REPLACE qualifier. 
QUALCQUAL_REPL] = CLISPRESENT(SD_REPLACE); 


QUALCQUAL_REWI] = CLISPRESENT(SD_REWIND); 
! Get the /SELECT qualifier. 


LAST = 0; 
WHILE CLISGET_VALUE(SD_SELECT, DESC) DO 


LOCAL 

SELE: REF BBLOCK; 
QUALCQUAL_SELE] = TRUE; 
SELE = GET_ZERO_VM(QUAL_S_SELE); 
IF .LAST EOL 
THEN QUALCQUAL_SELE_LIST] = .SELE 
1a ELSE LASTCQUAL_-NEXTJ = .SELE; 


ST = .SELE; 
Spree Rt oee (BUFFER, SD_SELECT, SELECQUAL_SELE_DESC]); 


Get the /SINCE qualifier. 
iF CLISGET_VALUE(SD_SINCE, DESC) 
THEN 
BEGIN 
QUALCQUAL_SINC] = TRUE; 
IF CALL TPARSE (BUFFER, BAK_STATES, BAK_KEYS) 
1 gE CUAL EQUAL_SINC_BACK3 = TRUE 


BEEBE EES & FANNIN NNW POPONONININID 2 2 2 SS SS OS 


FERCVAR LENGTH); 
SUALCOOAL SINC ya ve}? 


BEGIN 

DESC2CDSC$W_LENGTH) 
NOT LIB$CVT 

BUFF 


= .BU 
IF TIME (DESC2 
“ THEN SIGNAL (BACKUP$_1I 


F 
P$ INVQUAVAL, 


WN | 0 OONAUE WN $0 ODNOAUE WN O ODNOUEWN (O OONOUSWN OV” 


RCVAR_LENGTH], BUFFERCVAR_BODY], SD_SINCE); 
END; 


: Get the /TRUNCATE qualifier. 
QUALCQUAL_TRUN) = CLISPRESENT(SD_TRUNCATE); 


Get the /VERIFY qualifier. 
QUALCQUAL_VERIJ = CLISPRESENT(SD_VERIFY); 
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! Get the /REWIND qualifier. 
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; Get the /VOLUME qualifier. 
if CLISGET_VALUE(SD_VOLUME, DESC) 
BEGIN 
IF 


BEGIN 
ion LIBSCVT_DTB(.BUFFERCVAR_LENGTH], BUFFERCVAR_BODYJ, VALUE) 
TRUE 


ELS 
«VALUE = 1 GTRU 255 = 1! 1 <= N <= 255 
TweNe 
IGNAL (BACKUPS _INVQUAVAL, 3, .BUFFERCVAR_LENGTH], BUFFERCVAR_BODY], S$D_VOLUME); 
QUALCQUAL_VOLU] = TRUE; 
QUALCQUAL“VOLU_VALUE] = .VALUE; 


Get the input parameter, and its local qualifiers. 


LAST = 0; 
WHILE CLISGET_VALUE(SD_INPUTS, DESC) DO 


LOCAL 

INPU: REF BBLOCK; 
INPU = GET_ZERO_VM(QUAL_S_INPU); 
IF .LAST EOL 
THEN QUALCQUAL_INPU_LIST] = .INPU 
ELSE LASTCQUAL_NEXT] = .INPU; 
LAST = .INPU; 


INPUCQUAL_PARA_FC) = GET_FC (BUFFER); 


! Get the /OWNER_UIC qualifier. 
IF CLISPRESENT(SD_OWNER_UIC) 
THEN 


BEGIN 
QUALCQUAL_I_OWNE) = TRUE; 
IF NOT CLISGET_VALUE(SD_OWNER_UIC, DESC) 


BEGIN 
QUALCQUAL_I_OWN_VALU) = .JPI_UIC; 
QUALCQUAL"I“OWN"WGRP) = FALSE; 
QUALCQUAL"I"~OWN"WMEM) = FALSE; 
END 

ELSE 
BEGIN 
TPA_FLAGS = 0; 
IF ROT CALL_TPARSE (BUFFER, UIC_STATES, UIC_KEYS) 
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THEN 
SIGNAL(BACKUPS_INVQUAVAL, 3, .BUFFERCVAR LENGTH], BUFFERCVAR_BODY], SD_OWNER_UIC); 
IF, CONVERTED _UIC<T6, 16> EQL U1C$kK_WILD_GROUP 


BEGIN 
TPA _FLAGSCTPA_WGROUP] = TRUE; 
CONVERTED_UIC216,16> = 0; 


ND; 

3 IF |; CONVERTED_UIC<O, 16> EQL UICS$K_WILD_MEMBER 

3 BEGIN 

3 PA FLAGSCTPA_WMEMBER] = TRUE; 

CONVERTED_UIC20, 16> = 0; 

QUALCQUAL_I_OWN_VALU] = .CONVERTED_UIC; 
QUALCQUAL_I_OWN_WGRP] = .TPA_FLAGSCTTPA_WGROUP); 
QUAL CQUAL 71 OWN_WMEM] = .TPALFLAGSCTPA_WMEMBERI; 


END; 


! Get the /SAVE_SET qualifier. The rightmost explicit specification 
applies. 


STATUS = CLISPRESENT(SD_SAVE_SET); 
IF .STATUS EQL CLI$_LOCPRES OR .STATUS EQL CLIS$_LOCNEG 
ita THEN QUALCQUAL_T_SAVE] = .STATUS; 


DE BS BAAN ANNI NAN NAINAIAIRIPDPINIDININI WN NN NANIN ANE SITUA A A UII OO UII 


Be Se Se Se Se Se Be Be Se Se Be Ge Ge Ge Ge Ge Ge Fe Fe Se Se Ge Ge Ge Se Ge GF Ss Ge Se Se Se Fe Se Se FF Ss SF Os Ss Oe Se SF Ss Se Ss Se Se SH Ss Hs OHSS Os oe OS ee 


3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
26 5 : 
a ; 
so : Get the output parameter, and its local qualifiers. 
6 5 LAST = 0; 
6 5 WHILE CLISGET_VALUE(SD_OUTPUTS, DESC) DO 
26 5 BEGIN 
26 5 LOCAL 
26 6 OUTP: REF BBLOCK; 
e7 6 
27 6 
27 6 OUTP = GET _ZERO_VM(QUAL_S_OUTP); 
2 6 IF .LAST EOL O 
2 6 THEN QUALCQUAL_OUTP_LIST] = .OUTP 
2 6 ELSE LASTCQUAL-NEXTJ = .OUTP; 
2 6 LAST = .OUTP; 
; 
$ , x OUTPCQUAL_PARA_FC] = GET_FC(BUFFER); 
$B! i ve 
oes ve Get the /OWNER_UIC qualifier. 
284 75 IF CLISPRESENT(SD_OWNER_UIC) 
285 6 THEN 
$26 37 BEGIN 
28 378 IF NOT CLISGET_VALUE(SD_OWNER_UIC, DESC) 
288 379 THEN 
289 380 BEGIN 
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y04=000 COMMAND © main command parser 12rg0p= 1884 97:63:48 PBACKUPCSRECOMMAND -BSo.1 9¢ 48) 
: 2290 81 QUAL[QUAL_O_OWN_VALU] = 0; 
5 2291 8¢ QUALCQUAL“O-OWN-DEFA] = FALSE; 
; 3 8 QUALCQUAL"O-OWN"ORIG] = TRUE; 
> 229 i QUALCQUAL“O"OWN"PARE] = FALSE; 
3 oe $0? QUALCQUAL-O"OWN_UIC] = FALSE; 
; 2296 87 4 ELSE 
: 2297 88 5 BEGIN 
; 2298 89 5 TPA_FLAGS = 0; 
; 2299 3390 § F 
: 2300 391 6 BEGIN 
; 2301 336 6 IF NOT CALL_TPARSE (BUFFER, OWN_STATES, OWN_KEYS) 
; 2308 94 6 TRUE 
3 2304 3395 6 
: 2305 3396 5 CONVERTED_UIC<16,16> EQL UIC$K_WILD_GROUP OR 
; 2306 397 5 -CONVERTED-UIC<0,16> EQL UICSK_QILD_MEMBER 
: S308 3395 8 ene 
; $309 3400 § SIGNAL(BACKUP$_INVQUAVAL, 3, .BUFFERCVAR_LENGTH], BUFFERCVAR_BODY], SD_OWNER_UIC); 
; 2310 3401 5 UALCQUAL_O_OWN_VACU] = .CONVERTED_UIC; 
3 2311 3402 5 QUAL CQUAL~O0~OWN— EFA = ,TPA_FLAGSCTPA_DEFAULT); 
; ese 403 5 QUALCQUAL-O-OWN-ORIG] = .TPATFLAGSCTPA_ORIGINALJ; 
3 231 404 5 QUALCQUAL"O"OWN~PARE] = .TPA-FLAGSLTPA_PARENTJ; 
: 2314 3405 5 QUALCQUAL-O"OWN-UIC] = .TPA_FLAGSCTPA_OIC); 
3: 2315 3406 4 END; 
3; 2316 3407 3 END; 
: 2317 3408 3 
: 2318 3409 3 
3; 2319 3410 3 ! Get the /PROTECTION qualifier. 
: 2320 3411 3 i 
5 2321 3412 3 if CLISPRESENT(SD_PROTECTION) 
3; 2322 3413 3 THEN 
3 2323 3414 & BEGIN 
+ 2324 3415 4 LOCAL 
; 2325 3416 4 DEF AULT_PROT; 
3 2326 3417 & 
: 2327 3418 4 QUALCQUAL_PROT] = TRUE; 
> 2328 3419 4 TPA PROTECTION = 0; | 
: 3329 3420 ‘ WHICE CLISGET_VALUE(SD_PROTECTION, DESC) DO 
; 2331 342¢ 3 IF NOT CALL_TPARSE(BUFFER, PRO_STATES, PRO_KEYS) 
: 333 3426 3 i SIGNAL (BACKUP$_INVQUAVAL, 3, .BUFFERCVAR_LENGTH], BUFFERLVAR_BODYJ, SD_PROTECTION); 
5 2335 3426 4 
: 2336 3427 4 
: 2337 3428 4 DEFAULT_PROT = %X'FFOO'; ' S:RWED,O:RWED,G,W 
3 2338 429 4 F NOT =COM_FLAGSCCOM_STANDALONE) THEN SYSSSETDFPROT(O, DEFAULT_PROT); 
: 2339 430 4 QUALCQUAL PROT VALUEJ~= 
: 0 431 4 (. DEFAULT PROT AND NOT .TPA_PROTECTIONC1]) OR 
> 2341 43@ 4 (; TPA_PROTECTIONL1] AND NOT~.TPA_PROTECTIONLO)); 
3 306 43 END; 
: $3t7 3434 
F 303 3436 ! Get the /SAVE_SET qualifier. The rightmost explicit specification 
3: 2346 3437 3 ' applies. 
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000 OMMAND = main command parser 14-Sep-1984 BACKUP. SRC JCOMMAND.832; 1 
47 rh : 
8 439 STATUS = CLISPRESENT(SD_SAVE_SET); 
9 440 IF .STATUS ta CLI$ LOCPRES OR .STATUS EQL CLIS_LOCNEG 
20 44} THEN QUALCQUAL_O_SAVE] = .STATUS; 
1 44 END; 
38 rr 
34 ree Indicate completion of parsing. 
28 suc? if -COM_FLAGSCCOM_STANDALONE] THEN CLISEND_PARSE(); 
58 3445 
4 429 Check the input and output Lists. 
1 3459 if -QUALCQUAL_INPU_LIST] EQL 0 AND NOT .QUALCQUAL_JOUR] 
o¢ $02 THEN SIGNAL (BACKUPS_LISINPSAV); 
36 454 CHECK( QUALCQUAL_INPU_LTSTJ, FALSE ); 
364 3455 2 CHECK( QUALCQUAL~OUTPILISTJ, TRUE ); 
366 3089 
300 $026 2 H Get a verification file context area if required. 
369 3460 ; iF .QUALCQUAL_VERI] AND (.QUALCQUAL_OSAV] OR -QUALCQUAL_ISAV]) 
370 3461 2 THEN VERIFY_FAB = GET_FC(UPLIT QORD(O)); 
He 
378 $088 3 Postprocess the command qualifiers. 
375 3466 é iF NOT .QUALCQUAL_OSAV] 
376 3467 AND .INIT_STATUS EQL CLI$_ABSENT 
ae 308 é THEN QUALTQUAL_INIT] = TROE; 
379 3470 2 IF .COM_FLAGSCCOM_STANDALONE) 
331 3272 § * Meccin 
382 347 ; QUALCQUAL_IMAG] = TRUE; 
383 zi 7% 3 QUALLQUAL ~JOUR = FALSE; 
385 3476 2 IF .QUALCQUAL_PHYS) 
385 138 we oss 
388 3479 QUALCQUAL_DELE] = FALSE; 
389 3480 QUALCQUAL_IMAG) = FALSE; 
390 481 QUALCQUAL-INCR) = FALSE; 
rt QUALCQUAL_JOUR] = FALSE; 
3483 QUAL QUAL-RECO] = FALSE; 
3485 5 If |, QUALCQUAL_IMAG) 
189 BEGIN 
488 QUALCQUAL_FAST] = TRUE; 
489 QUAL CQUAL=INCR3 = FALSE; 
491 ELSE 
492 | QUALCQUAL_VOLU] = FALSE; 
494 i Don't support encryption of disk image copy 
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IF ,QUALCQUAL_OF11] AND .QUALCQUAL.1F113 AND .QUALCOUAL.SS,ENCRYPI 


BEG! 
QUAL LQUAL SS_ENCRYP) = FALSE; 


' No saveset encr tion, + image co 
SIGNAL CBACKUPS_ENCQUAIGN); i ne erste 


Tell the user what we've done 


EN 
IF .QUALCQUAL_COMP] THEN QUALCQUAL_VERI] = FALSE; 
If QUAL QUAL_OF11] AND .QUALCQUAL-VOLU] AND NOT .QUALCQUAL_INITJ 
SIGNAL (BACKUP$_CONF QUAL); 
IF NOT .QUALCQUAL_BUFF THEN QUALCQUAL BUFF _VALUE] = 3; 
IF NOT .QUALCQUAL g grou THEN QUALCQUAL~GROU-VALUE] = 10; 
IF .QUALCQUAL _OSAV) 
THEN 
BEGIN 
LOCAL - 


REF BBLOCK, ! Pointer to first output FAB 


FAB: 
BLOC_VALUE; i Temporary to compute actual blocksize 
FAB = .BBLOCKC.QUA TOUAL OUTP Liste QUAL_PARA_FCJ; 
BLOC_VALUE = .QUAL QUA\ BLOC_VALUE 
IF wor QUAL CQUAL BLOC 
THe “BEGIN 
IF gr te ag Aa ge eva DEV$V_SQD} 
THEN BLOC_VALUE = 819 
END: ELSE BLOC~ ~VALUE 512*63; 
BLOC VALUE = .BLOC_VALUE + 511 AND NOT 511; 


IF .QUALCQUAL_SS_FYILEJ 
on a, NOT BBLOCREFABLEABSL DEV], DEV$v_SsaD) 


BEGIN 
IF ~BLOC_VALUE GTRU 63*512 THEN BLOC_VALUE = 63*512; 
ELSE ay 
cs -BLOC_VALUE GTRU 127*512 THEN BLOC_VALUE = 127512; 
“QUAL LO AL 
PRBLE AB py) DEV$V_SQD] AND 
Brot “VALUE fet su 


BLOC_VALUE = 8192; 


QUAL CQUAL_BLOC_VALUE1 = .BLOC_VALUE; 


m 
= 
J 

ee 
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OOAE4 P.AAQ: 
Bones P.AAT: 
OOAF4 P.AAS: 
F8 


OOAFC P.AAV: 
00B08 P.AAU: 
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«LONG 5 
eADDRESS P.AAJ 
-ASCII paar 


3S P.AAL 
\BACKUP\ 
2 
S P.AAN 
\BEFORE\ 
“ADDRESS P.AAP 
“ASCII \BLOCK_SIZE\ 
“BLKB 2 


ONG 10 
-ADDRESS P.AAR 
eASCII \BRIEF\ 

KB 3 


»LONG 5 

eADDRESS P.AAT 

eASCII \BUFFER_COUNT\ 
- LONG 

eADDRESS P.AAV 

eASCII = \COMMENT\ 
-BLKB 1 

-LONG 7 

-ADDRESS P.AAX 

rot _——— 


-ADDRESS ot 
eASCII] = \CONFIRM\ 
-BLKB 1 


LONG 7 
-ADDRESS P.ABB 
eASCII = \CRC\ 
-BLKB 


LA 


- LONG 

-ADDRESS P.ABD 
»ASCII = \CREATED\ 
-BLKB 

- LONG 
-ADDRESS P.ABF 
eASCII = \DELETE\ 
-BLKB 2 


nm 
NO 


-ADDRESS P.ABH 
eASCII = \DENSITY\ 
-BLKB 1 

-LONG 7 
-ADDRESS P.ABJ 
eASCIT = \ENCRYPT\ 
-BLKB 1 


-LONG 7 
-ADDRESS P.ABL 
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mT} IMAGE\ 
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eADDRESS P.A 

oA ITIALIZE\ 
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-ADDRESS 
ASCII 
CF 
ERCHANGE \ 
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-ADDRESS 

ASCII 
BLKB 


-ACH 
OURNAL \ 


LONG 
“ADDRESS 
ASCII \ 


-LONG 
eADDRESS P.ACL 
eASCIT \LIST\ 


LONG 4 
«ADDRESS P.ACN 
eASCII = \LOG\ 
~BLKB 1 


-LONG 5 
-ADDRESS P.ACP 
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Fa et 1 $9:3:23 YBACKUPSREICOMMAND 8 52¢1 
C7C P.ACR: .ASCII \MODIFIED\ 
C P.ACG: .LON 
C »ADDRESS P.ACR 
C f P.ACT eASCII = \NEW_VERSION\ 
C -BLKB 1 
C98 P.ACS: LONG 11 
C9 «ADDRESS P.ACT 
Ree P.ACV: .ASCII \OUTPUTS\ 
CA -BLKB 1 
OCA8 P.ACU: .LONG 7 
CAC ADDRESS P.ACV 
ced P.ACX: .ASCII \OVERLAY\ 
cB -BLKB 1 
OCB8 P.ACW: .LONG 7 
OCBC eADDRESS P.ACX 
OCCO P.ACZ: ASCII \OWNER_UIC\ 
Boece -BLKB 
OCCC P.ACY: .LONG 
Bpeey eADDRESS P.ACZ 
QOCD4 P.ADB: .ASCII \PHYSICAL\ 
4945 P.ADA: .LO 
OOCE -ADDRESS P.ADB 
OQOOCES P.ADD: .ASCII \PROTECTION\ 
OOCEE -BLKB 2 
QOCFO P.ADC: .LONG 10 
OOCF4 eADDRESS P.ADD 
OOCF8 P.ADF: .ASCII \RECORD\ 
OOCFE -BLKB 2 
00D00 P.ADE: .LONG 6 
00004 eADDRESS P.ADF 
00008 P.ADH: .ASCII \REPLACE\ 
BO00F -BLKB 1 
0010 P.ADG: .LONG 7 
00014 eADDRESS P.ADH 
Bp 18 P.ADJ: .ASCII \REWIND\ 
0 43 -BLKB 2 
00020 P.ADI: .LONG 6 
00024 eADDRESS P.ADJ 
00D28 P.ADL: ASCII \SAVE_SET\ 
0030 P.ADK: .LONG 
0D eADDRESS P.ADL 
D38 P.ADN: .ASCII \SELECT\ 
OD3E -BLKB 2 
0 P.ADM: .LONG 6 
D044 -ADDRESS P.ADN 
aes P.ADP: .ASCII \SINCE\ 
D4D -BLKB H 
0050 P.ADO: .LONG 
0054 ADDRESS P.ADP 
0D58 P.ADR: .ASCI] \TRUNCATE\ 
0060 P.ADQ: .LONG 
0D -ADDRESS P.ADR 
0068 P.ADT: .ASCII \VERIFY\ 
60 f -BLKB 
D70 P.ADS: .LONG 
Bore ADDRESS P.ADT 
D78 P.ADV: .ASCII1 \VOLUME\ 


Page 72 
39° 45) 


4 


j 14 
13-Sep-1984 


sete 


COMMAND Command parser 245: AX-11 Bliss-32 v4.0-742 
v04-000 COMMAND : main command parser 14-Sep-1984 #756333 EBACKUP- SRC COMMAND B52, 1 
p7 -BLKB 
900 00 D 5 P.ADU: .LONG 
9 0000" 00D -ADDRESS P.ADV 
44 GE 41 4D 4D GF 43 24 53 0 P.ADX: ASCII \SYSSCOMMAND\ 
990 0 8 D94 P.ADW: .LONG 11 
00000" 00098 -ADDRESS P.ADX 
0004 0004 D9 P.ADY: . WORD 4 
990 0 9° DA ;ADDRESS DEVCLASS 
00000000 0 DAS : 0, 
0304 4 DAC P.ADZ: .WORD 4. 772 
99 6 9° DB -ADDRESS JPI_UIC 
DB4 “LONG 0 
02 00¢ 00088 “WORD 12, 514 
99 000° 0008 “ADDRESS JP1_USERNAME 
0000000 000¢ ; 
0400 9008 doD¢4 .WORD 8, 1024 
9900000 * 000¢8 “ADDRESS JPI_CURPRIV 
00000000 00000000 oop¢c ; . 
1000 0004 O0DD4 P.AEA: .WORD 4. 4096 
00000000" 00DD8 “ADDRESS SYI_VERSION 
00000000 o0DpD¢ ‘ 0 
1001 0004 O0DEO “WORD 4, 4097 
00000000" O0DE4 “ADDRESS SYI_SID 
00000000 00990009 O0DES “LONG 0 
45 44 GF GE 246 53 59 53 OODFO P.AEC: ASCII \SYSS$NODE\ 
00000008 OODF8 P.AEB: .LONG 8 
00000000 OODFC SADDRESS P.AEC 
2 54 50 59 52 43 4E 45 OCEOO P.AEE: <ASCII \ENCRYPT.NAME\ 
9000000¢ O0E0¢ P.AED: .LONG 
0000000" 00€10 “ADDRESS P.AEE 
54 49 52 4F 2—E 54 50 59 52 43 4 45 O0E14 P.AEG: ASCII \ENCRYPT.ALGORITHM\ 
4D 48 00623 
O0E gS -BLKB 3 
00000011 O00E28 P.AEF: <LONG 17 
00000000' OOE ¢¢ ‘ADDRESS P.AEG 
00000002 00€30 “LONG 2 
00 00 43 42 43 53 45 44 OQOE34 P.AEH: ASCII \DESCBC\<0><0> 
45 55 4C 41 2— 54 50 59 52 43 4E 45 OOE3C P.AEJ: ASCII \ENCRYPT.VALUE\ 
00E49 “BLKB 3 
00000000 OOE4¢ P.AEI: .LONG 13 
00009000" O0ES “ADDRESS P.AEJ 
000 00E54 P.AEK: .WORD 0 
_SLINE= P.AAI 
SD "ANAL YZE= P.AAK 
SD~BACKUP= P.AAM 
D~BEFORE= P- AAO 
SD“BLOCK_SIZE= P.AAQ 
SD"BRIEF= P- AAS 
SD"BUFFER_COUNT= =P. AAU 
S07 COMMENT= “AAW 
SD~ COMPARE= P.AAY 
SD~ CONF IRM= ABA 
SD"CRC= ABC 
SD"CREATED= P. ABE 
SD ~DELETE= P.ABG 


COMMAND Command parser 1 
v04-000 COMMAND = main command parser 1 
OFFC 00000 
sp cooapeegs 9° sent 
59 00000000' EF 9E 0000 
5E FBES CE af 0001 
Cee we Suey 
7E 7C 00021 
FFIF CF 9F 000 ; 
FF13 cf 9F 000 
4 7C 00028 
000000006 99 50 : bp D 
00000000G 00 Of ee $ 5 
0000004 gy 0180 f° of Pk 
QO0000A0- =s«&aBF 0180 c3 ) one 


p-1984 23:4 
aa $7383 
SD_DENSITY= 
SD_ENCRYPT= 
Ett 
D_EXPIRED= 
SD_FAST= 
SD_FULL= 
$O_GROUP_SIZE= 
S0- IGNORE= 
SO_IMAGE= 
SD_INCREMENTAL= 
SO_INITIALIZE= 
SD_INPUTS= 
SD_iNTERCHANGE= 
Rig He = 
D_LABEL= 
$D_LIST= 
$D0_LOG= 
SO_MODIFIED= 
SD_NEW_VERSION= 
SD-OUTPUTS= 
SD_OVERLAY= 
SD_OWNER_UIC= 
SD_PHYSICAL= 
SD-PROTECTION= 
_RECORD= 
SD_REPLACE= 
D_REWIND= 
SD_SAVE_SET= 
SD-SELECT= 
SD_SINCE= 
SD_TRUNCATE= 
SD_VERIF Y= 
SD_VOLUME= 
-EXTRN 
-EXTRN 
vEXTRN 
- ENTRY 
VAB 
MOVAB 
MOVAB 
+ 
CLRO 
CLRQ 
PUSHAB 
PUSHAB 
CLRQ 
CALLS 
BLBC 
CLRL 
CALLS 
CMPL 
EQL 
CMPL 
NEQ 
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VVVVVVVVVVVVVVVVVVVVUVUUUDU 
xe 28 8 *eeneeeeee «ere? 


2 ADU 
SYSSGETDVI, SYSSWAITFR 
SYSSGETJPI, SYSSGETSYI 
SYSSGETTIM, SYSSTRNLOG 


teat Save R2,R3,R4,R5,R6,R7,R8,RY,R10,- 


CLISPRESENT, R11 


PRESERVE STRING, R10 
+8, RO 


QUAL 
-1052(§P), SP 
#1 COM_FLAGS, 1$ 


P. 
-(SP 

#8, SYSSGETDVI 
RO; 28 


=(SP) 
#1, SYSSWAITFR 
DEVCLASS, #66 


BEVCLASS., #160 


Sete Se Se Se Se Sete Se Ge Se Ge Ge Ge Ge Se Ge Ge Ge Se 
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|v "000 COMMAND : ante command parser 1a-Sep-19 4 97:33:25 BACKUP. SRC JCOMMAND .832;1 9 45) 
73. = Ad 1 88 00056 1$: BISB2 #1, COM_FLAGS+1 : 2824 
Or $B B03 3g: BISB2 AT. COM. : 3833 
7E D4 0005¢ CLRL = SP) : 
FEF cf F 0005 PUSHAB P.ADZ : 
E 7¢ 0006 CLRQ. = = SP) : 
rE D4 0 CLRL. 0 = (SP) : | 
000000006 00 : FB 00066 CALLS #7, SYSSGETUPI : 
Age Suu = fine tap hs 
FFO9 cr Ti 0091 PUSHAB P.AEA : 
—E 7¢ 00075 CLRQ = = SP) : 
43 D4 0077 LRL. = =(SP) : 
000000006 00 07 FB 00079 CALLS #7, SYSS$GETSYI F 
FEDC § C9 9F 00080 PUSHAB JPI_DATE + 2838) 
000000006 00 1 FB 0084 CALLS #1, ~SYSSGETTIM : 
10 AE 0600 8F 3C 00088 mov2we #1024, DES : 3859 
14 AE 1A AE -9E 00097 MOV BUFFER+2, DESC+4 + 2842 | 
7E 7¢ 900 CLRO (SP) + 2846 
7E D4 0009 CLRL = = (SP) : | 
1¢ AE 9F OO09A PUSHAB DESC : | 
28 AE 9F 0009D PUSHAB BUFFER : 
FEFE CF 9F OOOAO PUSHAB P.AEB ; 
000000006 00 06 FB QO0A4 CALLS #6, SYSSTRNLOG ; | 
57 0 D0 O00AB MOVL RO. STATUS : | 
13 57 £9 OOOAE BLBC STATUS, 3$ + 2847) 
00000629 BF 57 D1 00081 CMPL TATUS, #1577 : 
OA 13 00088 BEQL : 
FEEG C9 9F OOOBA PUSHAB JPI_NODE_DESC > 2848 
1C AE 9F OOO0BE PUSHAB BUFFER : 
6A 02 FB 000C1 CALLS #2 pegseave grains 3 
10 AE OB0E0400 8F DO 000C4 3S: MOVL  #185467904, DESC > 2855 
14 AE 18 AE i 000C¢C MOVAB BUFFER DEST +4 : 2858 
08 AE 010E0000 8F DO 00001 MOVL  #17694720, DESC2 > 2859 
oC A 1A AE 3E 90009 MOVAB BUFFER+2, DESC2+4 : 3862 
FBOS CF OF ita PUSHAB $D_SLINE ; 
000000006 00 02 §B OO0ES CALLS #27 CLISGET_VALUE F 
0 Ad 9F O00EC PUSHAB QUAL+4 : 2868 | 
C AE 9F OOOEF PUSHAB BUFFER : 
6A 02 FB OOF 2 CALLS , PRESERVE_STRING ; 
FB61 CF 9F OOOF PUSHAB SD_ANALY > 2873 
6B 01 Fe 00F9 CALLS #17 CLISPRESENT ; 
69 01 00 50 F OOF INSV RO. #0, #1, QUAL+8 : 
FB6S «= CF OOF :~00101 PUSHAB SD. BACKUP : 2878 
68 1 rB 0105 CALLS #17 CLISPRESENT : 
69 01 1 0 FO 00108 INSV RO, #1, #1, QUAL+8 : | 
10 AE OF 00100 PUSHAB DE : 2883 
FB66 «CFOS «(0011 PUSHAB SD_BEFORE ; 
000000006 00 : Fe O114 CALLS #27 CLISGET_VALUE ; 
4D 118 BLBC : : 
9 04 88 OO11E BISB2 #4. QUAL+8 > 2886 
00000000v EF 9F 00121 PUSHAB BAK_KEYS > 2887 
00 00000v i 3 i f PUSHAB BAK “STATES : 
D4 AA 08 FB 1 0 CALLS r3. CALL_TPARSE 
69 88 88 00187 BISB2 #8, QUAL+8 ; 2889 


04-000 


ommand parser 


OMMAND = main command parser 


08 


000000006 
000000006 
000000006 
000000006 


0 
OOOOF 7F F 


000000006 
40 


000000006 
000000006 


50 


000000006 
4& 


000000006 
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2F 11 QO13A BRB 
AE 18 3 B0 1 ; 43: MOVW BUFFER, DESC2 
0 AS 9F 001 PUSHAB QUAL+16 
C AE OF 00144 PUSHAB DESC2 
00 9 FB 147 CALLS #2, LIBSCVT_TIME 
1A . 146 LBS " 
FB25) CFOS 13 PUSHAB SD. BEFORE 
: AE 9F 00155 PUSHAB BUFFER+2 
7E 2 Ar 3c 00158 MOVZWL BUFFER, =(SP) 
dD O19¢ PUSHL 
000000006 8F DD 0015E PUSHL ACKUP$_INVQUAVAL 
00 5 FB 198 CALLS #5, LIBSSIGNAL 
10 AE 9F 00168 5$ PUSHAB DESC 
FBIC «CFOS 016 PUSHAB SD_BLOCK_SIZE 
0 e re 001 CALLS #27 CLISGET_VALUE 
4 E9 0017 BLBC 3=E.-s«aRO. BS 
SE DD 0017C PUSHL SP 
1E AE 9F OOI7E PUSHAB BUFFER+2 
7E 20 ag 3¢ Boi 84 MOVZWL ares -(SP) 
00 03 FB 00185 CALLS #3, LIBSCVT_DTB 
11 50 £9 0018¢ BLBC. —_ RO 
gE 00000800 8F C3 0018F SUBL3 #2048, VALUE, RO 
F 50 01 90197 CMPL RO, #63487 
1A 1B 0019E BLEQU 7 
FAEA CF 9F OO1A0 6$ PUSHAB SD_BLOCK_SIZE 
1E AE 9F OO1A4 PUSHAB BUFFER+2 
7E 20 og 3C O01A7 MOVZWL BUFFER, -(SP) 
0 DD OO1AB _ PUSHL & 
000000006 8F DD OOTAD PUSHL HBACKUPS INVQUAVAL 
00 0S FB 00183 CALLS #5, LIBSSIGNAL 
69 10 88 OO1BA 7$ BISB QUAL+8 
A9 6— B80 001BD MOVW VALUE, QUAL+72 
FADS CF 9F 001C1 8$ PUSHAB SD_BRIEF 
6B 01 FB 001CS CALLS #17 CLISPRESENT 
10 AE oF 00168 PUSHAB 
FAES CF 9F OO1CB PUSHAB SD_BUFFER_COUNT 
90 02 FB OOICF CALLS re td GET_VALUE 
D 50 £9 00106 BLBC =—._s«aRO. *111 
SE DD 00109 PUSHL SP 
1E AE i 001D PUSHAB BUFFER+2 
7E 20 AE C 001D MOVZWL BUFFER, -(SP) 
00 03 FB OO1E CALLS #3, LIBSCVT_DTB 
09 50 £9 OO1E BLB . 
6 98 C3 OO1E SUBL3 #2, VALUE, RO 
0 D1 OO1F CMPL ~=séRO, @ 
1A 1B OO1F BLEGU 
FAB9 CF OF OO1F5 9$ PUSHAB SD BUFFER. COUNT 
If AE 9F oir PUSHAB BUFFER+ 
7E 2 AE 3c OO1FC MOVZWL BUFFER, -(SP) 
DD 00200 PUSHL @# 
000000006 8 DD 00 08 PUSHL ACKUP$_INVQUAVAL 
00 5 FB 00 0 CALLS #5, LIBSSIGNAL 
69 0 : O20F 10$ BISB2 #32, QUAL+ 
A9 6E 8 1 MOVB VALUE, QUAL+76 
10 AE 99F 00216 118 PUSHAB DESC 
FAAS CF 9F 0021 PUSHAB SD _ COMMENT 
00 2 FB 0021D CALLS #27 CLISGET_VALUE 
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(15) 
122388718 BACKUP. SRCJCOMMAND.832; 1 
VO4~ ND = main command parser s - Q ‘ $V RO, #6, #1, QUAL+8 2947 
1 06 f 9 PUSH R : 
: oe) ee oe Oe | om 
6A PUSHAB SD_ ut | 
OO Fa Oose EALLSS aceite t 2987 
07 of PUSHAB SD_CON “s 
: gH Rete AS Ai chiaotesp : a2 
00 of PUSHAB SD_ “a | 
or Ag ” FAME Oh be DOSE INSY: ROL ATL aie QUAL #9 ; 2967 
1 oF x iD Hi PUSMAB $D°C i eeesent | 
01 a9 0 «CAM i Fe 00g8¢ a Oar ie ; 2072, 
02 0 £00 PUSHAB SD_DE NT : | 
= «& * 68 ~ O1 rs 00 63 tease RO, j ye QUAL+14 3 2977 
00 §¢ ; 
06 a9 “ FAAS CE OOF 0097 CALLS #27 CLISGET_VALUE ihe, 
00 26 FB NSS BLBC = RO, 168 | 
000000006 0¢ 50 E9 00280 PUSH SP | 
1E AE 9F 00285 MOVIUL BUFFER, -~(SP) | 
BP RR RUS Hi clit ) 
000000006 9° 20 34 ne MOVE VALUE Ro : 2988 
7 D1 0029 CMPL Ree 
00000320 8F a6 13 00246 3 $ QUAL+77 : 2989. 
45 Ad 93 ui Bag Ae 128: CMPL RO, #1600 : | 
00000640  8F de 12 OO3ar aes ba, QUAL? F seen! 
45 Ad 23 11 00285 BRB RO, #6250 Bias 
0000186A 8F 06 is 0038 move #5, QUAL+77 : 2995 
45 Ad 11 002C4 BRB NSITY ; | 
FAS CE OOF 003C6 148: PUSHAB BUFFER®2 é 
26 AE 8 O0ReD MOVZWL BUFFER, ~(SP) : 
7E 20 D 00201 PUSHL P$_INVQUAVAL ; | 
000000006 i DD bo5b8 CALLS #5, LIBSSIGNAL £3308 
OB be C05e0 158: GIShs 48° bunts | 
000000006 99 oe 9F Sheed 198: late SD“ENCRYPT | 
me Oh tea Pee” Bt Nh he AP : 3003 
01 64 i i SF BBS #4, QUALI, 178 : 3006. 
oe 03 06 Ag 00A5 i O9t9 178: ROVAB ERYPTO_INIT, RO * 3009. 
50 000000006 i ib 0800 BNEQ SD ENCRYPT : 
rage AE 9F 00306 PUSHAB 


SS 


14 
cnne Command parser 18-$6 -1984 23:45:21 AX-11 Bliss-32 V4.0-742 p 78 
v04-000 COMMAND : main command parser 12-Sep-19 4 $9:93:2) EBACKUP. Se COMMAND .832;1 age 45) 
7E 20 AF 3¢ MOVZWL BUFFER, -($P) : 
000000006 BF DD 0080¢ PUSHt  BBACKUPS_ ENCNOTSUP ; 
000000006 00 5 FB 00315 CALLS #8 LIBSSIGNAL F 
19 AE 9F 0031C 18%:  PUSHAB DESC : 3013 
FC9 F OF OO3IF PUSHAB P.AED : 
000000006 00 re 3 CALLS ne, CL 1SGET_VALUE : 
09 : O32A BLBC —OséR $ : 
50 AD OF 0 D PUSHAB QUAL+88 + 3015 
iC AE 9F 9 PUSHAB BUFFER : 
6A 02 FB 00 CALLS #2, PRESERVE_STRING : 
40 AE 3F 0 19$:  PUSHAB DESC : 3019 
FC9 F OF PUSHAB P.AEF : 
000000006 00 3 Fe 00 D CALLS ne, CL ISGET_VALUE : 
0B E 0344 BLBC =—s_«aRO,.- 208 : 
58 AD OF 00 47 PUSHAB QUAL+96 + 3021 
iC AE 9F 0034A PUSHAB BUFFER : 
6A 02 FB 20333 CALLS r) ; PRESERVE_STRING : 
58 A9 010E0006 8F 00 00352 208:  MOVL 417694726. QUAL+96 > 3029 
06 DD 0035A PUSHL #6 : 3030 
000000006 00 gi FB 0035¢ CALLS #1, GET_VM : 
C ag 0 bdO 0036 OVL RO, QUAC+100 3 
5c BS FC72—sCCF 06 28 00367 MOVC3 #6, P.AEH, @QUAL+100 : 3032 
10 AE 9F 00365 21$:  PUSHAB DESC : 3037 
FC81 «CF OOF 00371 PUSHAB  P.AE! : 
000000006 00 92 FB 00375 CALLS #2, CLISGET_VALUE ; 
1F 0 €9 0037¢ BLBC =«_- RO. 228 : 
OC DD 0037F PUSHL #1 + 3041 
000000006 00 01 FB 00381 CALLS #1, GET_ZERO_VM ; 
52 50 bdO 00388 MOVL RO, VALO 3 
04 A2 9F 00388 PUSHAB 4(VALU) + 3042. 
1C AE 9F O038E PUSHAB BUFFER : 
6A 02 FB 00391 CALLS #2, PRESERVE_STRING : 
62 60 AD DO 00394 MOVL QUAL+104, (VALU) + 3043 
60 a9 52 D0 00398 MOVL VALU, QUAL+104 : 3044 
D0 11 9039¢ BRB 21$ : 3037 
56 D4 0039 28: CLRL— LAST : 304 
10 AE OF 003A $:  PUSHAB DESC : 3050 
F997 «CF OOF OO3A PUSHAB SD_EXCLUDE ; 
000000006 00 98 FB 003A CALLS ae. CLISGET_VALUE ; 
2€ ; O3AE BLBC F 
01 a9 10 88 00381 BISB2 ig, QUAL +9 : 3055 
OC DD 00385 PUSHL #1 : 3056 
000000006 00 01 FB 0387 CALLS #1, GET_ZERO_VM F 
56 05 00 BE TSTL LAST : 3057 
06 12 003¢ BNEQ 4$ : | 
28 «AG 50 D0 003C2 MOVL EXCL. QUAL +48 : 3058. 
03 11 003¢6 BRB 5$ : 
66 0 06 03¢8 248: MOVL EXCL, (LAST) > 3059 
56 50 p O3¢8 5$: VL EXCL LAST : 3060 
04 AO 99F OO3CE PUSHAB 4(EXCL) : 3061 
F969 CF 9F 00301 SHAB SD EXCLUDE ; 
20 Ar 9F 00305 PUSHAB BUFFER : 
0335 CA 0 fe D8 CALLS #3, PARSE_EXC_SEL ; 
ci 1 DD BRB 23§ ; 3050 
F96B «CF «OOF OO3DF 26%:  PUSHAB SD_EXPIRED > 3067 


aes ny 


—_— 
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6B 1 FB 00363 CALLS #1, CLISPRESENT : 
01 Ad 01 05 95 FB 0366 INSV 45 * #1, QUAL+9 : 
F96A «6CF OOF: «OO3EC PUSHAB SD_FAST : 3072 
68 o1 re 0 FO CALLS #17 CLISPRESENT : 
01 Ad 01 06 0 FO 003F INSV RO, #6, #1, QUAL+9 : 
F969 «CF OOF 003F9 PUSHAB SD_FULL : 3077 
68 o1 FB O3FD CALLS #1; ¢ TSPRESENT : 
01 Ad 01 07 0 FO 00400 INSV RO. #7, #1, QUAL49 : 
10 AE 9F 00406 PUSHAB bese : 3082. 
F96D CF OF 00409 PUSHAB S$D_GROUP_SIZE : 
000000006 00 08 FB 00400 CALLS We; CEIStET VALUE : 
3E 50 £9 00414 BLBC : 
SE DD 00417 PUSHL + 3087 
1E AE 3 0419 BUFFER+2 ; 
7E 20 AE C 0041C MOVZWL : FFER, <(SP) : 
000000006 00 03 FB 00420 CALLS , LIBSCVT_DTB : 
09 50 £9 00427 BLBC : 
00000064 aF 6E D1 O04¢A CMPL “VALUE, #100 + 3091 
1A 1B 00431 BLEQU : 
F943 «CFO 00433 27$:  PUSHAB SD _GROUP_SIZE > 3094 
1—E AE 9F 0043 PUSHAB BUFFER+2 ; 
7E 20 AE 3C O043A MOVZWL BUFFER, -(SP) ; 
03 DD 0043E PUSHL # ; 
000000006 8F DD 00440 PUSHL #BACKUPS INVQUAVAL : 
000000006 00 05 FB 00446 CALLS #5, LIBSSIGNAL : | 
02 a9 01 88 0044D 28$:  BI1SB2 #1, rite ts + 3095 
46 Ad 6E 90 00451 MOVB VALUE, QUAL+78 : 3096 
10 AE 9F 00455 29$:  PUSHAB DESC : 3102 
FOZE CF 9F 00458 PUSHAB SD_IGNORE ; 
000000006 00 02 FB 0045¢ CALLS 327 CL1SGET_ VALUE ; 
4A 50 £9 00463 BLBC RO, 32$ : 
0188 9 D4 00466 CLRL —« TPA_FLAGS : 310 
00000000v EF 9F 0046A PUSHAB IGN7KEYS : 310 
00000000v EF 9F 00470 PUSHAB IGNSTATES ; 
20 AE 9F 00476 PUSHAB BUF ER : 
D4 AA 03 FB 00479 CALLS » CALL_TPARSE ; 
1A 50 £8 0047D BLBS : 
F906 CF SF 00480 PUSHAB SD. 1 GNORE £3107. 
1—E AE 9F 00484 PUSHAB BUFFE : 
7E 20 AE 3¢ 00487 MOVZWL BUFFER. esp) F 
03 DD 0048B PUSHL # ; 
000000006 8F DD 0048D PUSHL #BACKUP$_INVQUAVAL ; 
000000006 00 05 FB 00493 CALLS #5, LIBSSIGNAL : 
04 0188 C9 0 Fi 049A 30$: BBC #6, TPA FLAGS, 31$ + 3108 
02. Ad 8 004A0 BISB2 #2. QUAC+10 F 
0188 C9 95 004A4 31$: TSTB. —s TRA_FLAGS : 3109 
AB 18 004A8 GEQ =.29 : | 
02 ag 04 88 O04AA BISB2 #4, QUAL+10 F | 
AS 11 004A BRB 29$ : 3102 
F8E6 SF 9F 00480 32$:  PUSHAB SD_IMAGE : 311 
6B 0} FB 04B4 CALLS #17 CL ISPRESENT : 
02 «Ag 01 03 50 FO 00487 INSV RO, #3, #1, QUAL+10 ; | 
FRED CF OF 0048D PUSHAB SD. INCREMENTAL : 3120 
68 gi FB 04(1 CALLS #17 CLISPRESENT : | 
02 ag 01 04 0 FO 00464 INSV RO, #4, #1, QUAL+10 : | 
FBF4 CF 9F OO4CA PUSHAB SD_ INITIALIZE : 3126 
68 01 FB O04CE CALLS #17 CLISPRESENT ; 
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5 0 00 00401 MOVL 
02 Ad 01 0 3 FO Rope INSV 
F908 CF OF QO4DA PUSHAB 
68 4 4 O4DE CALLS 
06 Ad 01 01 0 FO 004E1 INSV 
F90B F 9F 004E7 PUSHAB 
68 1 4 04EB CALLS 
1E 0 f 04EE BLBC 
02. Ag 40 F 88 Q04F1 B1SB2 
10 AE 9F O04F6 PUSHAB 
FEF9 «=CF OOF «O04F9 PUSHAB 
000000006 00 02 FB BperD CALLS 
18 AE 9F 00504 PUSHAB 
2c so AA 01 FB 00507 CALLS 
ec AD 50 00 00508 OVL 
56 04 OOSOF 338: CLRL 
10 AE 9F 00511 34$: PUSHAB 
FREE CF 9F 00514 PUSHAB 
000000006 00 02 FB 00518 CALLS 
49 50 €9 OOSIF BLBC 
0c 18 AE B1 00522 CMPW 
1A 18 O3258 BLEQU 
F8DA CF 9F 00528 PUSHAB 
1E AE 9F 0052C PUSHAB 
7E 20 ag 3C 0052F MOVZWL 
03 DD 00533 PUSHL 
00000000G 8F DD 00535 PUSHL 
000000006 00 05 FB 00538 CALLS 
02 Ag 80 8F 88 80245 35$: BISB2 
10 DD 0054 PUSHL 
000000006 00 01 FB 00549 CALLS 
56 05 00550 TSTL 
06 12 00552 BNEQ 
48 Ad 30 DO 00554 MOVL 
05 11 00558 BRB 
66 50 DO O055A 368: MOVL 
56 50 DO 0055D 37$: MOVL 
0c 20 1A AE 18 AE 2C 00560 mMOoVC5 
04 Ad 404 
A6 11 00569 BRB 
F8A3 CF 9F 00568 38$: PUSHAB 
68 01 FB O056F CALLS 
1D 50 €9 Boa%e LBC 
03 A9 01 ge 057 BISB2 
10 AE OF bate PUSHAB 
F892 «CF OF «<0057C PUSHAB 
000000006 00 02 FB 00580 CALLS 
18 AE 9F 00587 PUSHAB 
2C =o AA 9} FB OOS8A CALLS 
30 =—Ad 0 00 b255 MOVL 
F888 F 9F 00592 39$: PUSHAB 
68 1 FB 00596 CALLS 
03 Ad 01 01 0 FO 00599 INSV 
F888 4 oF its PUSHAB 
66 1 Fe 005A3 CALLS 
03 Ag 01 02 50 FO 005A6 INSV 
F892 CF 9F OOSAC PUSHAB 
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INIT_STATU 
fT STATUS, #5, #1, QUAL+10 
INTERCHANGE 
LISPRESENT 
, QUAL +14 


URNAL 
ISPRESENT 
QUAL +10 


URNAL 
ISGET_VALUE 


> 

o 
Cc 
> 
Loe | 
7 
wc 
~™m 


DESC 
SD_LABEL 

#2, CLISGET_VALUE 
BUFFER, #12 

35$ 


2 
B FFER, -(SP) 
#BACKUP$_INVQUAVAL 
#5, L L 
#128, QUAL +10 
#1, GET_ZERO_VM 
AST 


6$ 

ABE, QUAL+80 

LABE, (LAST) 

LABE, LAST 
BUFFER, BUFFER+2, #32, #12, 4(LABE) 


SD_LIST 
#17 CLISPRESENT 
#1. QUAL+11 

pes 


SD_LIST 
#2, CLISGET_VALUE 
BUF 


L 
#1, CLISPRESENT 
RO, #1, #1, QUAL+11 


SD MODIFIED 


; #2, #1, QUAL+11 
SD. NEW. VERSION 
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6 1 FB 0058 CALLS #1, CLISPRESENT : 
03 a9 01 83 93 FB 8289 INSV RO, #3, #1, QUAL411 : 
FBAS cr 9F 00589 PUSHAB SD_OVERLAY : 3199 
68 1 FB 0580 CALLS #1, CLISPRESENT : 
03 a9 01 04 50 £0 005C0 INSV , #1, QUAL+11 : 
F8BC }6OCCFOOF: «00566 PUSHAB SD_PHYSICAL + 3204 
68 1 FB O5CA CALLS #17 CLISPRESENT : 
04 a9 01 05 0 FO 005¢D INSV RO. #5, #1, QUAL412 : 
F8D3 «CF OOF: «00503 PUSHAB SD_RECORD : 3209 
68 oI re 00507 CALLS #17 CLISPRESENT : 
04 Ad 01 06 0 FO 005DA INSV RO, #6, #1, GUAL+12 : 
F806 «CF OOF O05E0 PUSHAB SD_REPLAC + 3214 
6B 01 rB 0564 CALLS #17 CLISPRESENT : 
04 Ad 01 07 50 £0 005E7 SVs RO, #7, #1, QUAL4+12 : 
F8D9 CF OF O0S5ED PUSHAB SD_REWIND : 3219 
68 01 FB 005F1 CALLS #17 CLISPRESENT : 
05 ag 01 00 50 FO 005F4 INSV RO, #0, #1, QUAL+13 : 
56 D4 OO5FA CLRL—— LAST + 3226 
10 AE 9F OO5FC 40$: PUSHAB + 3225 
FRE? CF OF OOSFF PUSHAB SD_SELECT F 
000000006 00 02 FB 00603 CALLS #2, CLISGET_VALUE : 
2E 50 £9 0060A BLBC 0, 4 ; | 
0S a9 08 88 0060D BISB2 #8. QUAL+13 : 3230 
OC DD 00611 PUSHL #12 : 3231. 
000000006 00 01 FB 00613 CALLS #1, GET_ZERO_VM ; 
56 DS O061A TSTL _—LAST : 3232. 
06 12 0061C BNEQ 418 ; 
3c AD 50 DO O061E MOVL  SELE, QUAL+68 + 3233 
03 11 00622 BRB 42$ F 
66 50 00 00624 41$ MOVL  SELE, (LAST) : 3234 
56 50 00 00627 42$ MOVL - SELE, LAST : 3235. 
04 AO 9F 0062A PUSHAB 4(SELE) : 3236 
F8B9 CF OF 006¢0 PUSHAB SD_SELECT ; 
20 AE 9F 00631 PUSHAB BUFFER : 
0335 CA 03 FB 00634 CALLS #3, PARSE_EXC_SEL ; 
C1 11 00639 BRB 40$ : 322 
10 AE 9F 00638 43$: | PUSHAB DESC > 324 
F8BB OCF OOF: «006 3E PUSHAB SD_SINCE 3 | 
000000006 00 02 FB 00642 CALLS #27 CLISGET_VALUE ; | 
4F 50 £9 00649 BLBC —_ RO : | 
05 Ag 10 88 0064C¢ BISB2 #16, QUAL+13 : 3245 
00000000v EF 9F 00650 PUSHAB BAK “KEYS : 3246 
00000000V EF 9F 00656 PUSHAB BAK STATES : 
20 AE OF 0065¢ PUSHAB : 
D4 OA 03 FB 0065F CALLS #3, CALL_TPARSE : 
06 50 £9 00663 BLBC ; 
0S Ag 20 88 00666 BISB2 #32, QUAL+13 : 3248 
08 AE 18 KE 00 Ooeee 4S:  ROvW -BUFFER, DESC2 : 3251, 
18 a5 oF 8 671 PUSHAB QUAL+32 : 3252 
OC AE 9F 00674 PUSHAB DESC2 ; 
000000006 00 98 FB 0677 CALLS #2, LIBSCVT_TIME F 
1A E O67E BLBS : : 
F875 CF SF 00681 PUSHAB SD SINCE > 3253 
IF AE 9F 0685 PUSHAB BUFFER+ F 
7E 2 AE 3¢ 00688 MOVZWL BUFFER, -(SP) : 
03 OD 0068 PUSHL @# : 


15 
COMMAND Command parser 18-32 -1984 23:45:21 AX-11 Bliss-32 V4.0-742 
v04-000 COMMAND : main command parser 12-80-1984 4:83:28 EBACKUP- SRE COMMAND .832;1 
000000006 8F DD 0068E PUSHL ACKUPS$_INVQUAVAL 
000000006 00 BE FB O69 CALLS Ae LIBSSIGNAL 
F86B CF OF 0069B 45$:  PUSHAB SD‘ TRUNCATE 
6B 1 FB 69F CALLS #17 CLISPRESENT 
05 a9 01 06 0 FO 006A INSV RO, #6, #1, QUAL+13 
F86E CF OF O06A PUSHAB SD_VERIF 
68 1 FB 06AC CALLS #1; CLISPRESENT 
0S a9 01 07 0 FO OO6AF INSV RO, #7, #1, QUAL+13 
10 AE 9F 00685 PUSHAB DESC 
FR6E CF SF 00688 PUSHAB SD_VOLUME 
000000006 09 02 FB 0068¢ CALLS #2, CLISGET_VALUE 
: DD anscs PUSHL SP 
1E AE 9F 006C8 PUSHAB BUFFER+2 
7E 20 AE 3¢ 006CB MOVZWL BUFFER -(SP) 
000000006 00 03 FB O06¢F CALLS #3, LIBSCVT_DTB 
0D 50 €9 00606 LBC. —«aRO,. 46S 
0 6E 01 ¢3 00609 SUBL3. #1, VALUE. RO 
QOOOOOFE 8F 50 01 006DD CMPL RO, #254 
1A 1B 006E4 BLEGQU 47$ 
F840 CF 9F 00666 46$:  PUSHAB SD VOLUME 
1— AE 3 O06EA PUSHAB BUFFER+2 
7E 20 N C 006ED MOVZWL BUFFER, -(SP) 
0 DD 006F1 PUSHL # 
000000006 8F DD 006F3 PUSHL #BACKUP$_INVQUAYAL 
000000006 00 0S FB 006F9 CALLS #5, LIBSSIGNAL 
06 Ad 01 88 00700 47$: BISB2 #1. QUAL+14 
47 Ad 6E 90 00704 MOVB VALUE, QUAL+79 
56 D4 00708 483:  CLRL LAST 
10 AE 9F OO70A 49$:  PUSHAB DESC 
F6C1 CF 9F 0070D PUSHAB SD_INPUTS 
000000006 00 62 FB 00711 CALLS #27 CLISGET_VALUE 
03 50 ES 00718 BLBS RO, 50$ 
00&B 31 00718 BRW 61$ 
28 DD OO71E 50S:  PUSHL #40 
000000006 00 01 FB 00720 CALLS #1, GET_ZERO_VM 
52 50 00 00727 MOVL RO, INPO 
56 DS 0072A TSTL 
06 12 0072C BNEG 51$ 
F8 Ag § 00 0072E MOVL NPU, QUAL 
03 11 00732 BRB 
66 25 DO 00734 51$: MOVL INPU, (LAST) 
56 52 pO 00737 52$:  MOVL  INPU, LAST 
18 AE OF 907 A PUSHAB BUFFER 
2c AA Q1 FB 0073D CALLS #1, GET_FC 
04 A2 0 D0 o0741 MOVL RO. 4(IRPU) 
F72D CE OF 00745 PUSHAB SD_OWNER_UIC 
6B gi FB 00749 CALLS #17 CLISPRESENT 
20 0 074¢ BLEC Ossi 
03 «AD 20 88 00745 BISB2 #32, QUAL+11 
10 AE OF 0793 PUSHAB 
F71C ~3=6CF OSE «007 PUSHAB $D_OWNER_UIC 
000000006 00 98 i {3A CALLS #2. LISGET_VALUE 
34 Ag FeEcc §C9 p 764 MOVL ipl UIC, QUAL+60 
3 Ag CO «BF 60BA 076A BICB2 #192, QUAL+11 
3 11 OO76F 53S: BRB 58$ 
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TPA_FLAGS 

UIC“KEYS 

UIC STATES 

ager L_TPARSE 

RO. got . 

SD_OWNER_UIC 

BUFFER+2 


3 FFER, =(SP) 

#BACKUPS INVQUAVAL 

#5, LIBSSIGNAL 
ONVERTED_UIC+2, #16383 
#1, TPA_FLAGS 
CONVERTED_UIC+2 
CONVERTED UIC, #65535 
#2, TPA_FLAGS 
CONVERTED_UIC 
CONVERTED_UIC, QUAL+60 
TPA_FLAGS, #6, #1, QUAL+11 
g _FLAGS, RO 
RO, #7, #1, QUAL+/1 
SD_SAVE_S 

#1, CLISPRESENT 

RO, STA 

STATUS, #CLIS_LOCPRES 
STATUS, #CLIS_LOCNEG 
STATUS, #1, #1, QUAL+13 
49$ 

LAST 

$D_OUTPUTS 

#2; CLISGET_VALUE 

RO, 63$ 

ves 

#1, GET_ZERO_VM 

RO, OUTP 


OUTP, QUAL+4 
OUTP, (LAST) 
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v04-000 COMMAND = main command parser 14-Sep-1984 BACKUP.SRCJCOMMAND .B832;1 
12 50 €8 0085 LBS =—s«aRO, 67S : 
38 «AD OG 0 f raat QUAL +64 : 3381. 
04 a9 2 BA BICB2 «#2, QUAL +12 : 38 
04 Ad 4 88 00868 BISB2 #4. QUAL+1 : 338 
04 a9 18 A 00 : BICB2 #24, QUAL+12 : 3385. 
0080 31 0 668: BRW 70$ : 3378 
0188 C9 D4 00873 67$:  CLRL TPA_FLAGS : 3389 
00000000v EF 9F 0087 PUSHAB OWN-KEYS : 3392. 
00000090v EF 9F 00 4) PUSHAB OWN STATES : | 
AE oF 0088 PUSHAB BUFFER : 
D4 AA 9 FB 0886 CALLS #3, CALL_TPARSE : | 
12 0 € OBBA BLBC F : | 
3FFF OF 0182 3 ct O88D CHP CONVERTED_UIC+2, #16383 : 3396 
FFFF =F 0180 ¢9 61 90896 CMPW CONVERTED_UIC, #65535 : 3397) 
1A 12 00890 BNEQ ; | 
F5D3 CF «OF OO89F 68$:  PUSHAB SD_OWNER_UIC + 3400 
1E AE 9F OOB8A3 PUSHAB BUFFER+2 : | 
7E 20 AE 3C OOBA6 MOVZWL BUFFER, -(SP) : 
0 bd OOBAA PUSHL # : 
000000006 8F DD OO8AC PUSHL #BACKUPS INVQUAVAL : 
000000006 00 05 FB 008B2 CALLS #5, LIBSSIGNAL : 
38 AD 0180 C9 DO 008B9 69$:  MOVL CONVERTED UIC, QUAL+64 + 3401 
50 0188 C9 01 02 EF O08BF EXTZV. #2, #1, TPA_FLAGS, RO : 3402. 
04 a9 01 01 50 FO 008C6 INSV RO. #1. #1, QUAL4i2 : | 
50 0188 C9 01 03 EF Oogce EXTZV #3, #1, TPA_FLAGS, RO + 3403 
04 Ag 01 02 50 FO 008D SV RO, #2, #1, QUAL+12 : | 
50 0188 C9 01 04 EF 00809 EXTZv #4, #1, TPA_FLAGS, RO + 3404 
04 a9 01 03 50 FO 008E0 INSV RO, #3, #1, QUAL4+12 : | 
50 0188 C9 01 0S EF 008E6 EXTZ7v #5, #1, TPA_FLAGS, RO : 3405. 
04 Ad 01 04 50 £0 OO8ED INSV 4 UAL+42 : 
FSA3 CF OOF OO8F3 70$:  PUSHAB SD‘PROTECTION : 3412. 
68 01 FB 008F7 CALLS #17 CLISPRESENT : 
7E 50 £9 OO8FA BLBC RO, 74S F 
06 a9 08 88 O08tD BISB2 #8, QUAL+14 : 3418 
0180 C9 D4 00901 CLRL. +‘ TPA_PROTECTION > 3419 
10 AE 9F 00905 71$:  PUSHAB DEST : 3420 
FS8E CF 9F 00908 PUSHAB SD_PROTECTION ; 
000000006 00 92 FB 9990¢ CALLS #2; CLISGET_VALUE : 
32 0 £9 0091 BLBC RO, 72$ ; 
00000000v EF 9F 00916 PUSHAB PRO_KEYS > 3422. 
00000000V EF 9F 9091 PUSHAB PRO-STATES : 
20 AE 9F 009 PUSHAB BUF ER : 
D4 «AA ° FB 009 CALLS #3, CALL_TPARSE : 
D9 f 929 BLBS _—-RO, : 
FS6A CF OF 009 C PUSHAB SD. PROTECTION + 3424 
1E AE 9F 009 6 PUSHAB + : 
7E 20 Ar 3c 009 MOVZWL BUFFER, -(SP) : 
0 DD 00937 PUSHL @# ; 
000000006 8F DD 00939 PUSHL #BACKUPS INVQUAVAL : 
000000006 00 05 FB 0093F CALLS #5, LIBSS ; 
BD 11 0946 BRB : 3420 
04 aE FFOO 8F 3C 00948 72$: MOVZWL #65280, DEFAULT_PROT : 3428. 
0c > # 01 £0 0946 BBS #1, COM_FLAGS, 73$ : 3429 
04 AE SF 0095 PUSHAB DEFAULT PROT : 
43 D4 00956 CLRL = = (SP ; 
000000006 00 02 FB 00958 CALLS #2, SYSSSETDFPROT : 
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74$: 


3:45:21 AX-11 Bliss-32 V4.0-74 
138334 EBACKUP. SRC COMMAND 85201 


8 
TPA_PROTECTION¢2, R1 
R1, DEFAULT PROT, R1 
TPA_PROTECTION+2, RO 
TPA-PROTECTION, R2 
R1. RO, QUAL+84 

SD. SAVE_SET 
#17 CLISPRESENT 
RO, STATUS 

TATUS, #CLIS_LOCPRES 
TATUS, #CLIS_LOCNEG 
STATUS, #2, #1, QUAL+13 
#1, COM_FLAGS, 78$ 
#0, CLISEND_PARSE 
QUAL 


9$ : 
#6, QUAL+10, 79$ 
#BACKUPS$_LISINPSAV 
a" ph 1BSSIGNAL 


gyetets 

#5, QUAL+15, 81$ 
P. AEK 

wi, GET 
RO, VER 
pa 
NIT_STATUS, #CLIS$_ABSENT 


#32, QUAL+10 
#1, COM_FLAGS, 83$ 
Quac+ 


FC 
TFY_FAB 


‘ + 
act QUAL+12, 84$ 


ref 


3431 


; 3432 


Baa ay 


— 


15 
COMMAND Command parser 14.22 =1984 23:45: AX-11 Oi ies #32 v4.0-742 Page 86 
Goan 000 COMMAND = main command parser 1228 08= 1382 $3:33:23 BACKUP. SRC COMMAND .832;1 . a 
000000006 00 01 F AS1 CALLS LIBSSIGNAL F 
3 98 Ad 878: is ath : 3503 
05 ag 80 BF he a5 B1CB2 “i 8 QUAL s +13 ; 
16 07 Ad 06 E1 00A61 88S BBC QUAL 5 89$ + 3504 
le 06 Ad €E9 Ab6 BLBC ayn o¥¢ : 
OD 02 05 E0 A BBS AL +10 89$ : | 
000000006 8F DD OOA6F PUSHL SBACKUP CONF QUAL + 3506. 
000000006 00 01 FB OA 5 CALLS #1, LIBSSIGNA : : | 
4 69 ; f A7C 89$: BBS #3. SUAL® 90$ : 3507. 
44 Ad 0 OA MOVB ; QUAL+ : 
04 02 a9 f OA 90$:  BLBS QUAL +10 91$ + 3508 
46 Ad OA A MOVB 0, QyAL+ 4 : 
07 Ad 95 OOABC 918 TSTB AL+1 : 3509) 
rg 18 OOASF BGEQ 98$ : 
50 FC AS DO 00A91 MOVL  QUAL+4, RO : 3516) 
51 04 AO pd A9S MOVL  4(RO) : | 
50 40 Aad 3¢ 00A99 MOVZWL QUAL *?2, BLOC_VALUE + 3517) 
11 69 04 £0 OOA9D BBS as, QUAL + +8. 935 : 3518 
07 40 Al 05 g OOAA1 BBC 64 (FAB + 3521 
50 2000 8F 3C OOAA6 MOVZWL #89 eae? * VALUE : 3522 
05 11 OOAAB BRB : 
50 7E00 «= BF 3¢ OOAAD 92% MOVZWL ses BLOC _VALUE : 3523 
32 O1FF CO 9E OOAB2 93S MOV + 3525 
50 52 OOOOOIFF 8F CB OOAB BICL nS, iGLo¢ VALUE ; 
05 07 Ad 03 £0 OOABF BBS Ay "tun 92$ : 3526 
10 40 Al 05 €0 OOAC4 BBS a5 ite 58 : 3527 
00007E00 «BF 50 D1 OOAC9 948 CMPL BLOC VALUE.” #32256 : 3530) 
15 1B OOADO BLEQU $ : 
50 7600 8F 3¢ OOADe MOVZWL #32256, BLOC_VALUE : 
OE 11 OOAD BRB : 3526) 
QOOOFEOO BF 50 D1 OOAD9 95$ CMPL BLOC_VALUE, #65024 ; 3534) 
93 1B OOAEO BLEQ 96$ 3 
50 FEOQO* 8F 3C OOAE MOVZWL #65024, BLOC_VALUE ; 
13 06 Ad 01 £1 QOAE? 968 BBC #1, QUAL+14, 97S : 3538. 
OE 40 Al 05 €1 OOAEC BBC #5. 64(FAB). 97$ : 3539) 
00002000 = BF 30 D1 OOAF1 CMPL § BLOC_VALUE, #8192 : 3540) 
05 1B OOAF8 BLEGU ; 
50 2000 8F 3C OOAFA MOVZWL #8192, BLOC_VALUE : 3542 
40 Ad 50 BO OOAFF 97$:  MOVW  BLOC_VALUE, ~QUAL+72 + 3544 
04 00803 98$: RET : 3546. 


; Routine Size: 2820 bytes, Routine Base: CODE + 0E56 
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AND Command parser 18-5e 1984 23:45:21 AX-11 Bliss-32 V4.0-742 Pa 87 
voe-000 TPARSE tables 14-Sep-1984 1:33:83 EBACKUP.SRe COMMAND .832; 1 9°16) 
: 2457 47 1 XSBITL "TPARSE tables’ 
: 26 4g 1 PSECT 
> 24 49 1 GLOBAL= _LIBSKEYOS(NOWRITE, SHARE PIC, EXECUTE ,ALIGN(1), 
> 2460 20 1 ADDRESSING, MODE (LONG RELATIVE)), 
3 2461 551 1 GLOBAL= _LIBSSTATES(NOWRITE , SHARE ,PIC EXECUTE ,ALIGN(O), 
> 246 3 1 KDDRESSING_MODE (LONG_RELATIVES); 
> 246 53 1 SWITCHES 
; 54 ADDRESSING_MODE (NONEXTERNAL=LONG_RELATIVE); 
: 2465 239 
; te? 328 1 SINIT STATECUIC_STATES, UIC_KEYS); 
; P 238 1 SSTATE( 
; 468 P 359 (TPAS_IDENT, ...CONVERTED_UIC) 
> 2471 p 3561 1 SSTATEC 
> 247 P 26¢ 1 (TPAS_EOS, TPAS_EXIT) 
3: 247 565 1 ); 
 $2h3 ses | 
> 24676 566 1 SINIT_STATE(OWN_STATES, OWN_KEYS); 
3 2477 P 3567 1 SSTATE( 
> 2478 p 3568 1 (*DEFAULT" OWN END,,TPA_M DEFAULT, TPA FLAGS) 
> 2479 p 3369 1 ("ORIGINAL® OWN END. ,TPA_M_ORIGINAL, TPA FLAGS), 
3 2480 P 3570 1 ("PARENT' OWN END, , TPA_M~PARENT, TPA_F . 
; 2481 P 31 (TPAS_IDENT ,OON_ Ef_uIl. >, CONVERTED-UIC) 
: 248 p 3278 1 sstaté (OWN SET vIC, 
i 2484 P 3574 (TPAS_LAMBDA,OUN_END,, TPA_M_UIC, TPA_FLAGS) 
; 3686 P 3376 1 SSTATE(OWN_END, 
3 2487 P 3577 1 (TPAS_EOS, TPAS_EXIT) 
; 488 3578 1 ); 
: $050 3300 | 
3 2491 581 1 SINIT STATE(IGN_STATES, IGN_KEYS); 
> 249 P 582 1 $STATEC 
i 249 P 3583 1 = (SNOBACKUP*,,, TPA M_NOBACKUP, TPA FLAGS) , 
i 249% P 3584 CINTERLOCK +2 TPA_A_INTERLOCK, TPA_FLAGS) 
; 2696 p 3586 1 SSTATE ( 
3 2497 P 3587 1 (TPAS_EOS, TPAS_EXIT) 
> 2498 588 1 ); 
: $800 350 | 
: 2501 591 1 SINIT_STATE(BAK_STATES, PAK_KEYS); 
; 308 p 3592 1 SSTATE( 
; 203 P 3593 "BACKUP" , TPAS_EXIT) 
> 2505 P 3595 1 SsTATE( 
; 306 P 596 1 (TPA$_EOS, TPAS_EXIT) 
3; 250 597 1 ds 
$809 339 | 
> 2510 600 1 SINIT_STATE(PRO_STATES, PRO_KEYS); 
: $213 P $53 } Naa ETE Re EYPR %X"000F 0000", TPA_PROTECTION) 
F $218 3608 (*OWNER", OWPR, .%X"OOF 00000"; TPATPROTECTION) . 
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FF 


1$-S2p-19 4 23:4 
14-Sep-1984 $78 


«PSECT 

00000 Ne pai Oe? 

00000 ; TPASKEYST 

7 U+9 ASCII 
Td .BYTE 
0008 : TPASKEYSTO 
0.15: BLK 

00008 ; TPASKEYST 


U.17: ASCII 
90010 » Y 
00011 ; TPASKEYSTO 


-BLK 
00011 ; TPASKEYST 
U.24: .ASCII 
00017 YT 


:BYTE 
00018 ; TRASKEYF ILL 
00019 T TPASKEYSTO 
0.41: LK 
00019 ; TPASKEYST 
0.43: .ASCII 
00021 -BYT 
00022 ; TPASKEYSTO 
00022 


00028 
0002C 


0002D ; 
0002D ; 


00033 A: 
00034 ; TPASKEYFILL 


0.62:  .B 
00035 ; TPASKEYSTO 
-66: .BLK 

00035 ; itearsA 


asta! 
00038 YTE 
0003¢  TPASKEVSTO 


0.74: 
0003C ; TPASKEYST 
00041 


0.76: .ASCII 
00042 ; ; TPASKEYSTO 


.B 
00042 : TPASKEYST 
0.84: ASCII 


.B 
s TRASKEYF ILL 
U.53: 


os 


AX=11 Bliss-32 V4.0-742 
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_LIBSKEY1$,NOWRT, SHR, PIC,1 


0 
» aptamasit 


0 
Maen 


0 
— 


1 
0 
h: ean 


0 
aeons 


1 
0 
or 


-1 
0 
wersrem 


0 
em 


0 
\GROUP\ 
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FF 


44 4C 52 4F 57 


FF 
FF 


45EC 
00000000* 

15F7 

FFFF 


7100 
00000000* 
00000004 

0000* 

7101 
00000000* 
00000008 

0000* 

7102 
00000000* 
00000010 

0000* 

55SEC 
00000000* 

0000+ 


75F6 


13-3ep-1984 
1a-8ep-1986 


Bobs 


00048 


bode 


00000 
00000 
00002 
00006 
00008 


QOO0A 
0000C 


0000C 
OO00E 
00012 
00016 
00018 ; 
QO01A 
0001E 
00022 
00024 
00026 
0002A 
0002E 
00030 
00032 
00036 
00038 
00038 


3:45:21 AX-11 Bliss-32 V4.0-742 
63:2) BACKUP. SRC COMMAND .832; 1 
BYTE -1 
;TRASKEYSTO 
pT Ogenevs? 
0.92: eASCII \WORLD\ 
BYTE -1 
3 TPASKEYFILL 
U.98: BYTE -1 
-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
sateen *F 
3; TPASTYPE 
ee: -WORD 17900 
3; TPASADDR 
o3: «LONG <<CONVERTED_UIC-U.3>-4> 
3; TPASTYPE 
4: .WOR 5623 
; TPASTARGET 
U.5: eWORD -=1 
-—BLKB 2 
OWN_STATES:: 
-—BLKB 0 
; TPASTYPE 
U.10: eWORD 28928 
3; TPASADDR 
3; TPASMASK 
U.12: eLONG 4 
; TPASTARGET 
U.14: eWORD <<U.13-U.14>-2> 
; TPASTYPE 
U.18: eWORD 28929 
3; TPASADDR 
3; TPASMASK 
U.20: -LONG 8 
3; TPASTARGET 
U.21: eWORD <<U.13-U.21>-2> 
3; TPASTYPE 
U.25: -WORD 28930 
3; TPASADDR 
U.26: .LONG <<TPA_FLAGS-U.26>-4> 
3; TPASMASK 
U.27: .LONG 16 
3; TPASTARGET 
U.28: eWORD <<U.13-U.28>-2> 
s TPASTYPE 
U.29: -WORD 21996 
; TPASADDR 
U.30: -LONG <<CONVERTED_UIC-U.30>-4> 
3; TPASTARGET 
U.32: .WORD <<U.31-U.32>-2> 
;OWN_SET_UIC 
U.317 -BLKB 
; TPASTYPE 


— 
04-000 
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00000000+ 
00000020 
0000+ 


15F7 
FFFF 


6100 
00000000* 
00000040 

6501 
00000000* 
00000080 

15F7 

FFFF 


1500 
FFFF 
15F7 
FFFF 


7100 
00000000* 
000F 0000 

0000+ 

7101 
00000000* 
00F 00000 


ish) 


15- Sep-19 4 

122395-198¢ 
Q003A Fipuéaopi 
OOOSE ; NaS opal 
00042 « TPASTARGET 

U.37: WOR 

00044 
00044 
00046 


00048 


—a . 


GN ~STATES:: 
00048 vt epbag™ 
0004A ; TPASADDR 


eL 
0004E : TPASMASK 
U.46: ~ LONG 


00052 ; TPASTYP 
U.50: WORD 
00054 ;TPASADDR 
U.51: LONG 
00058 ; TPASMASK 
U.52: —. LONG 
0005C ; TPASTYPE 
v. 54: WORD 
0005E ; TPASTARGET 
v. WOR 


00060 BAK ~STATES:: 
00060 We? opie . 
00062 ; Wt pean 
00064 ; TPASTYPE 
U.63: WORD 
00066 = iBASTARGET 
00068 PRO_STATES:: 


0068 wey Teees er 
00088 T YPE 


0006A 
0006E 
00072 ; 
00074 
00076 
Q007A 


AX-11 Bliss-32 V4.0-742 
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30198 
<<TPA_FLAGS=U.35>=4> 
32 

<<U.13-U.37>-2> 

0 

5623 

-1 

0 

24832 
<<TPA_FLAGS=U.45>=4> 
64 

25857 
<<TPA_FLAGS-U.51>=4> 
128 

5623 


28928 
<<TPA_PROTECTION-U. 70>-4> 
983040 

<<U.72-U.73>-2> 

28929 
<<TPA_PROTECTION-U.78>-4> 


v04-000 TPARSE tables 14-Sep-1984 48 BACKUP. SRC jCOMMAND .B325 1 (16) 
U.79: aét NG 15728640 : 


xsl tbh (81: WORD <<U.80-U.81>-2> 
7102 00080 ;TPASTYPE ; ‘ ; 
0.85:  .WORD 28930 ; 
00000000* 00082 ; TPASADDR 


16 

COMMAND Command parser 18-Sep-1984 Rit $3: :21 AX-11 Oi ise =32 v4.0-742 Page 932 
0 
T 


0.86: .LONG <<TPA_PROTECTION-U.86>-4> ; 
OF000000 00086 ; TPASMASK * 
U.87: .LONG 251658240 ; 


0000* O008A ; TPASTARGET 
U.89: eWORD <<U.88-U.89>-2> F 
7503 O008C ; TPASTYPE 


U.93: eWORD 29955 3 
00000000* OO08E ;TPASADDR 
U.94: «LONG <<TPA_PROTECTION-U.94>-4> : 
F0000000 00092 ; TPASMASK 
U.95: -LONG -268435456 : 
0000* 00096 ; TPASTARGET 
U.97: eWORD <<U.96-U.97>-2> : 
00098 ;SYPR 
U.72: -BLKB 0 
003A 00098 ; TPASTYPE 
U.99: WORD 58 3 
003D O009A ; TPASTYPE 
U.100: .WORD 61 é 
15F6 OOO9C ; TPASTYPE 
U.101: .WORD 5622 § 
0000* OO09E ; TPASTARGET 
U.103: .WOR <<U.102-U.103>-2> 3 
QOOOAO SYPRO: .BLKB 0 
7052 OOOAO ; TPASTYPE 
U.104: .WORD 28754 : 
00000000* OO0A2 ; TPASADDR 
U.105: .LONG <<TPA_PROTECTION-U.105>-4> 3 
00000001 O00A6 ; TPASMASK 
U.106: .LONG 1 3 
0000* OOOAA ; TPASTARGET 
U.107: .W <<SYPRO-U.107>-2> 3 
7057 OOOAC ; TPASTYPE 
U.108: .WORD 28759 3 
00000000* OOOAE ; TPASADDR 
U.109: .LONG <<TPA_PROTECTION-U.109>-4> 3 
00000002 O00B2 ; TPASMASK 
U.110: .LONG 2 
0000* 000B6 ; TPASTARGET 
U.111: .WORD  <<SYPRO-U.111>-2> 3 
7045 000B8 ; TPASTYPE 
U.112: .WORD 28741 3 
00000000* OO0BA ; TPASADDR 
U.113: .LONG <<TPA_PROTECTION-U.113>-4> : 
00000004 OO0BE ; TPASMASK 
U.114: LONG 4 3 
0009* 000C2 ; TPASTARGET 
U.115: . WORD <<SYPRO-U.115>-2> 2 
7044 O00C4 ; TPASTYPE 
U. 116: .WORD 28740 3 
00000000* 000C6 ; TPASADDR 


c 
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00000008 
0000+ 
15F6 
0000+ 


003A 
003d 
15F6 
0000* 


7052 
00000000* 
00000010 
0000* 
7057 
00000000* 
00000020 
0000* 
7045 
00000000* 
00000040 
0000* 
7044 
00000000* 
00000080 
0000* 
15F6 
0000+ 


1$-S0p-1984 
ep- 
14-Sep-1 1382 $3 
U.117: LONG 
OOOCA ; TPASMASK 
U.118:  .LONG 
OOOCE ; TPASTARGET 
U.119: .WORD 
O00DO ; TPASTYPE 
U.120: .WORD 
000D2 ; TPASTARGET 
U.121: WORD 
00004 ;OWPR 
U.80: -BLKB 
000D4 ; TPASTYPE 
U.122:  .WORD 
000D6 ; TPASTYPE 
U.123: WORD 
00008 ; TPASTYPE 
U.124: .WORD 
QOODA ; TPASTARGET 
U.125: .WORD 
QOODC OWPRO: .BLKB 
OOODC ; TPASTYPE 
U.126: .WORD 
OOODE ; TPASADD 
U.127: .LONG 
OOOE2 ; TPASMASK 
U.128: .LONG 
QOOE6 ; TPASTARGET 
U.129: .WORD 
OQOOES ; TPASTYPE 
U.130: .WORD 
OOOEA ; TPASADDR 
U.131: .LONG 
QOOEE ; TPASMASK 
U.132: .LONG 
OOOF2 ; TPASTARGET 
U.133: . WORD 
OOOF4 ; TPASTYPE 
U.134: . WORD 
OOOF6 ; TPASADDR 
U.135: .LONG 
OOOFA ; TPASMASK 
U.136: .LONG 
OOOFE ; TPASTARGET 
U.137:  .WORD 
00100 ; TPASTYPE 
U.138:  .WORD 
00102 ; TPASADDR 
U.139: LONG 
00106 ; TPASMASK 
U.140: .LONG 
OO10A ; TPASTARGET 
U.141: WORD 
0010C ; TPASTYPE 
U.142: WORD 
0010€ Ney, Mane 
U.1435: WORD 
00110 ;GRPR 


63: :21 AX-11 Bliss-32 V4.0-742 
748 BACKUP.SRCJCOMMAND .B832;1 


<<TPA_PROTECTION“U.117>-4> 
8 

<<SYPRO“U.119>=2> 

5622 

<<U.102-U.121>=2> . 

0 

58 

61 

5622 

ai dats 


28754 
<<TPA_PROTECTION-U.127>=4> 
16 

<<OWPRO-U.129>=2> 

28759 
<<TPA_PROTECTION-U.131>=4> 
32 

<<OWPRO-U.133>-2> 

28741 
<<TPA_PROTECTION-U.135>=4> 
64 

<<OWPRO-U.137>-2> 

28740 
<<TPA_PROTECTION-U.139>-4> 
128 

<<OWPRO-U.141>=2> 

5622 

<<U.102-U.143>=2> 
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Command parser 
TPARSE tables 


ie eae ie eee 


003A 
003d 
15F6 
0000+ 


7052 
00000000* 
00000100 

0000* 

7057 
00000000* 
00000200 

0000* 

7045 
00000000* 
00000400 

0000+ 

7044 
00000000* 
00000800 

0000* 

15F6 

0000+ 


003A 
0030 
15F6 
0000+ 


16 
18-Sep-19 4 23:4 
12-80 8= 1 bhe #3 5 
U. 88: -BLKB 
00110 ; TPASTYPE 
U.144: .WORD 
00112 © 3 TPASTYPE 
U.145: WORD 
00114 ; TPASTYPE 
U.146:  .WORD 
00116 ; TPASTARGET 
U.147: WORD 
00118 GRPRO: .BLKB 
00118 ; TPASTYPE 
U.148: WORD 
0011A ; TPASADDR 
U.149: .LONG 
OO11E ; TPASMASK 
U.150: .LONG 
00122 ; TPASTARGET 
U.151: WORD 
00124 ; TPASTYPE 
U.152: .WORD 
00126 ; TPASADDR 
U.153: .LONG 
0012A ; TPASMASK 
U.154: .LONG 
0012E ; TPASTARGET 
U.155: .WORD 
00130 ; TPASTYPE 
U.156: .WORD 
00132 ; TPASADDR 
U.157: .LONG 
00136 ; TPASMASK 
U.158: .LONG 
0013A ; TPASTARGET 
U.159: .WORD 
0013C ; TPASTYPE 
U.160: .WORD 
0013E ; TPASADDR 
U.161: .LONG 
00142 ; TPASMASK 
U.162: . LONG 
00146 ; TPASTARGET 
U.163: .WORD 
00148 ; TPASTYPE 
U.164: WORD 
0014A ; TPASTARGET 
U.165: .WORD 
0014C ;WOPR 
U.96: -BLKB 
0014C ; TPASTYPE 
U.166: .WORD 
QO14E ; TPASTYPE 
U.167: . WORD 
00150 ; TPASTYPE 
U.168:  .WORD 
00152 ; TPASTARGET 
U.169: .WORD 
00154 WOPRO: .BLKB 


5:21 AX-11 at ss-32 V4.0-742 
5:48 BACKUP.SRC JCOMMAND .B32; 1 
0 
58 
61 
5622 


Th ee 


28754 
<<TPA_PROTECTION-U.149>-4> 
256 

<<GRPRO-U.151>=2> 

28759 
<<TPA_PROTECTION-U.153>=4> 
512 

<<GRPRO-U.155>-2> 

28741 
<<TPA_PROTECTION-U.157>=4> 
1024 

<<GRPRO-U.159>=2> 

28740 

<<TPA_PROTECTION-U. 161>-4> 
2048 

<<GRPRO-U.163>-2> 

5622 

<<U.102-U.165>=2> 

Cc 

58 

61 

5622 

Se. 18S. Eom ee 
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= 


, COMMAND Command parser 
v04-000 TPARSE tables 


7052 
00000000« 
00001000 
0000* 
7057 
00000000* 
00002000 
0000* 
7045 
00000000* 
00004000 
0000* 
7044 
00000000* 
00008000 
0000* 
15F6 
0000+ 


102C 
0000+ 
15F7 
FFFF 


16 
18-se -1984 23:45: 
12-08-1882 $3333 
00154 ; TPASTYPE 
U.170: .WO 
00156 ; TPASADD 
U.171: LONG 
0015A ; TPASMASK 
U.172: .LONG 
0015€ eh, Magee 3! 
U.173:  .WORD 
00160 ; TPASTYPE 
U.174: WORD 
00162 ; TPASADDR 
U.175: .LONG 
00166 ; TPASMASK 
U.176: .LONG 
O016A ; TPASTARGET 
U.177: .WORD 
0016C ; TPASTYPE 
U.178: .WORD 
OO16E ; TPASADDR 
U.179: .LONG 
00172 ; TPASMASK 
U.180: .LONG 
00176 ; TPASTARGET 
U.181: WORD 
00178 ; TPASTYPE 
itt » WORD 
0017A ; TPASADD 
U.183: .LONG 
0017E ; TPASMASK 
U.184: .LONG 
00182 ; TPASTARGET 
U.185:  .WORD 
00184 ; TPASTYPE 
U.186:  .WORD 
00186 ; TPASTARGET 
U.187: .WORD 
00188 ;ENDPRO 
U.102: .BLKB 
00188 ; TPASTYPE 
U.188:  .WOR 
0018A ; TPASTARGET 
U.189: .WORD 
0018C ; TPASTYPE 
U.190: .WORD 
0018E ; TPASTARGET 
U.191: .WORD 
PSECT 
00000 UVIC_KEYS:: 
.BLKB 
00000 ; TPASKEYO 
J : -BLKB 
00000 OUR FEPE) 
00000 ; TPASKEYO 
U.6: -BLKB 


21 
748 


EBACKUP.SRCSCORMAN.652; 1 
28754 
<<TPA_PROTECTION-U.171>=4> 
4096 

<<WOPRO=U.173>=2> 

28759 
<<TPA_PROTECTION-U.175>=4> 
8192 

<<WOPRO-U.177>=2> 

28741 
<<TPA_PROTECTION“U.179>=4> 
16384 

<<WOPRO-U.181>=2> 

28740 
<<TPA_PROTECTION-U.183>=4> 
32768 

<<WOPRO-U. 185>=2> 

5622 

<<U.102-U. 187>-2> 

0 

4140 

<<NEXTPRO-U.189>-2> 

5623 

-1 

_LIBSKEYOS.NOWRT, SHR, PIC,1 


ooo oo 


sdk IMA: (aie. SER. NT GPU 


COMMAND Command parser 15-Sep =138% 21 AX-11 Bliss-32 V4.0-742 Page 96 
v04-000 TPARSE tables 12-Sep-19 tH: $3:2 48 BACKUP. SRC JCOMMAND.B32;1 ° (16) 
0000* 00000 ; TPASKEY 
b. 8: ~ WORD <U.7-U.6> : 
0000* 00002 ; TPASKEY 
U.16: «WORD <U.15-U.6> 3 
0000* 00004 US PASKEY 
0.23: WORD <U.22-U.6> e 
0008 -BLK 2 
0008 IGN_KEYS:: 0 
00008 STPASKEYO 
U.40: -BLKB 0 
0000* 00008 UF PASKEY 
U.42: » WORD <U.41-U.40> 3 
0000* OO000A ; TPASKEY 
U. - WORD <U.47-U.40> : 
0000C BAK “KEYS! 6 
0000C s TPASKEYO 
U.56: -BLKB 0 
0000* OO00C ; TPASKEY 
0.58: ~WORD <U.57-U.56> P 
0000E -BL KB 2 
00010 PRO_KEYS:: :* 0 
00010 ; TPASKEYO: 
U.65: -BLKB 0 
0000* 00010 UF PASKEY 
U.67: «WORD <U.66-U.65> 3 
0000* 00012 ; TPASKEY 
U. : ~ WORD <u. 74-U.65> Ps 
0000* 00014 ; TPASKEY 
U.83: -WORD <U.82-U.65> 3 
0000* 00016 ; TPASKEY 
U.91: ~ WORD <U.90-U.65> 3 


~EXTRN LIBSSIGNAL 
PSECT SUMMARY 


: Name Bytes Attributes 

: COMMON 2124 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL. REL, OVR,NOPIC,ALIGN(2) 
; DATA 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL. REL, SON MORTE OAL 1 GNtS? 
: COD 6490 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3; LIBSKEYOS 3 NOVEC,NOWRT, RD, EXE, R, LCL, REL, CON, PIC,ALIGN(1) 
3 _LIBSSTATES 400 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(1) 
Z aLIBSKEVIS” 79 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
; Library Statistics 

: eoeceee o- Symbols woseonrce Pages Processing 

: File Total Loaded Percent Mapped Time 


COMMA Command parser 
youeu8 TPARSE tobles 
>  S$255$DUA SYSLIBJLIB.L32;1 18619 153 
: Retin ESvs MUS Teh 42 24 


COMMAND QUALIFIERS 


5491 code + 3630 data bytes 
02:06.6 


; Elapsed Time: 06:34.5 
; Lines/CPU Min: 1735 

; Lexemes/CPU-Min: 44120 

: sees | Used: 845 pages 
; Compilation Complete 


16 
ge -$ep-1984 23:45:21 AX-11 Bliss-32 V4.0-742 P 97 
14- =Sep- 1984 63:08 BACKUP. SRC COMMAND. B32;1 29° 16) 


. oe 00:06:3 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=L1S$:COMMAND/OBJ=0BJ$: COMMAND MSRC$:COMMAND/UPDATE=(ENHS: COMMAND) 
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